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ABSTRACT 

Software  engineers  in  general,  and  the  Department  of  Defense  in  particular,  are 
looking  for  good  software  metrics  to  aid  in  software  development.  Maurice  Halstead 
developed  the  theor\'  of  Software  Science  which  includes  the  relation  between  program 
complexity  and  program  length.  Halstead's  length  metric  deals  with  the  properties  of 
an  algorithm  that  can  be  measured,  either  directly  or  indirectly,  statically  or 
dynamically,  and  with  the  relationships  among  these  properties.  A  system  has  been 
developed  which  implements  Halstead's  length  metric.  This  system,  which  is  written  in 
Ada,  takes  Ada  programs  as  input,  and  outputs  the  length  metric  complexity  analysis. 
Finally,  recommendations  for  future  work  in  this  area  are  made. 
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I.  INTRODUCTION  AND  BACKGROUND 

A.       CONCERNS 

With  computer  software  programs  getting  larger  and  larger  all  the  time,  the 
search  is  on  for  accurate  and  dependable  aids  for  the  developer  to  increase  the 
productivity  and  efficiency  of  software  engineermg  efforts.  New  tools  and  new 
methodologies  are  being  sought  in  the  effort  to  alleviate  the  "software  crisis".  This 
crisis,  stated  specifically,  is  that  software  is  being  deUvered  late,  over  budget. 
specifications  are  not  being  met,  modifications  are  difficult  and  expensive,  unresponsive 
to  user  needs,  and  unreliable. 

Recently,  it  was  reported  that  software  costs  are  growing  at  the  rate  of  \5%  per 
year  while  productivity  is  increasing  at  less  than  3%  [Ref  1:  p.  15].  Barry  Boehm.  a 
leading  computer  expert,  asserted  more  than  10  years  ago  that,  in  the  military 
apphcation  area,  the  cost  of  software  was  expected  to  reach  about  80%  of  the  total 
computer  system  budget  by  the  year  1985  [Ref  2:  p.lj.  His  assertion  now  seems  valid 
[Ref  3].  Furthermore  it  appears  that  up  to  60'^o  of  the  total  software  budget  for  all 
organizations  using  computers  is  being  devoted  to  maintenance  [Ref  2:  p.2J.  The 
Office  of  Naval  Research  and  other  Defense  Research  agencies  are  aware  of  these 
increasing  costs.  They  are  also  accutely  aware  of  the  lack  of  quantitative  measurement 
techniques  which  are  desperately  needed  for  assessing  the  quality  and  reliability  of 
software  as  well  as  for  the  prediction  and  measurement  of  software  production 
[Ref  1:  p.  14].  Further  evidence  of  this  universal  concern  comes  from  a  General 
Accounting  Office  report  of  June  78  on  managing  weapons  systems.  It  stated  that  there 
exists  no  Department  of  Defense  performance  criteria  to  measure  software  quahty  and 
to  estabUsh  a  basis  for  its  acceptance  or  rejection  [Ref  1:  p.  15].  The  Secretary  of 
Defense's  response  was  brief  and  candid, 

We  concur.  We  reeret  and  underscore  the  importance  of  the  need.  The 
Department  of  Defense  will  quickly  embrace  such  measures  when  they  are 
available. 

The    current    Office    of  Naval    Research    (ONR)    initiative    to    focus    on    software 
measurement  is  a  result  of  the  need  for  such  metrics  and  the  high  level  of  interest  that 


the  Secretary'  of  Defense  brings  to  bear.  The  ONR  initiatives,  stated  specifically,  are: 
developing  indices  of  merit  that  can  support  quantitative  comparisons  and  evaluations; 
designing  a  philosophical  framework  for  understanding  and  defining  software 
measurement;  and  focusing  the  attention  of  the  scientific  community  on  computer 
software,  [Ref  1:  p.  15]. 

B.       AVAILABLE  METRICS 

Software  metrics  are  often  classified  as  either  process  metrics  or  product  metrics, 
and  are  applied  to  either  the  development  process  or  the  software  product  bemg 
developed  [Ref  2:  p.  19].  Process  metrics  include  resource  metrics,  such  as  the 
experience  of  programmers,  and  the  cost  of  development  and  maintenance.  Examples 
of  metrics  for  the  levels  of  personnel  experience  are  the  number  of  years  that  a  team 
has  been  using  a  programming  language,  the  number  of  years  that  a  programmer  has 
been  with  the  organization,  the  number  of  years  that  a  programmer  has  been 
associated  with  a  programming  team,  and  the  number  of  years  of  experience 
constructing  similiar  software  [Ref  2:  p.  19].  Other  factors  considered  in  process  metric 
measurement  are  development  techniques  (the  use  of  top-down  or  bottom-up 
development  techniques,  and  structured  programming),  supervisor}'  techniques  (such  as 
type  of  team  organization  and  number  of  communication  paths),  and  resources 
(human,  computer,  time  schedule,  and  so  on)  [Ref  2:  p. 20].  Product  metrics,  on  the 
other  hand,  are  a  measure  of  the  software  product.  Product  metrics  include  the  size  of 
the  product  {such  as  number  of  lines  of  code  or  some  count  of  tokens  in  the  program), 
the  logic  structure  complexity  (such  as  fiow  of  control,  depth  of  nesting,  or  recursion), 
the  data  structure  complexity  (such  as  the  number  of  variables  used),  the  function 
(such  as  type  of  software:  business,  scientific,  systems,  and  so  on),  and  combinations  of 
these  [Ref  2:  p.20]. 

The  emphasis  in  this  thesis  will  be  on  product  metrics  to  the  total  exclusion  of 
process  metric  issues.  We  are  interested  in  analyzing  the  static  program,  or  product,  in 
our  efTort  to  provide  an  automated  tool. 

There  are  a  variety  of  different  quantitative  software  metrics  in  use  today.  In  an 
important  paper  by  Boehm  [Ref  4],  an  attempt  is  made  to  define  software  quality  in 
terms  of  some  high  level  characteristics  such  as  reliability,  portability,  efficiency, 
human  engineering,  testability,  understandability,  and  modifiability.  If  we  can  define 
these  characteristics,  noting  that  a  precise  subjective  definition  is  difficult  to  achieve. 


and  measure  these  characteristics  with  some  precision,  we  could  strive  to  maximize 
each  of  these  characteristics  [Ref.  2:  p. 7].  There  are  some  difficulties  here.  First,  some 
of  the  characteristics  are  potentially  contradictory.  For  example,  improvements  in 
portability  and  understandability  usually  result  in  decreased  efficiency  [Ref  2:  p. 7]. 
Secondly,  there  are  significant  cost/benefit  tradeofls.  For  example,  the  cost  of 
producing  highly  reliable  code  may  be  several  times  more  costly,  in  terms  of  time  and 
/or  money,  than  for  less  reliable  code  [Ref  2:  p. 7]. 

The  measurement  of  software  complexity  is  receiving  increased  attention  in 
recent  years.  Complexity  has  been  a  loosely  defined  term  but  Bill  Curtis  defined 
complexity  to  be  a  characteristic  of  the  software  interface  which  influences  the 
resources  another  system  will  expend  or  commit  while  interfacing  with  the  software 
[Ref  5].  Two  separate  and  distinct  focuses  have  emerged  in  studying  software 
complexity:  computational  and  psychological  complexity  [Ref  1:  p. 208]. 
Computational  complexity  relies  on  the  formal  mathematical  analysis  of  such  problems 
as  algorithm  elTiciency  and  use  of  machine  resources.  In  contrast,  the  empirical  study 
of  psychological  complexity  has  emerged  from  the  understanding  that  software 
development  and  maintenance  are  largely  human  activities.  Psychological  complexity  is 
concerned  with  the  characteristics  of  software  which  afiect  programmer  performance 
[Ref  1:  p. 208].  This  thesis  will  focus  entirely  on  program  complexity  in  an  efibrt  to 
provide  a  representative  metric  from  selected  quantitative  measures. 

There  are  a  variety  of  complexity  metrics  available  and  we  will  briefly  highlight  a 
few  of  them.  A  number  of  metrics  having  a  base  in  graph  theory  have  been  proposed 
to  measure  complexity  from  control  flow  [Ref  1:  p. 2 10].  Thomas  McCabe  devised  one 
of  the  better  known  complexity  metrics  in  relation  to  the  decision  structure  of  a 
program  [Ref  6].  McCabe  argues  that  his  metric  assesses  the  difficulty  of  testing  a 
program,  since  it  is  a  representation  of  the  control  paths  that  must  be  exercised  during 
testing  [Ref  1:  p. 210].  Victor  Basili  and  Robert  Reiter  [Ref  7],  have  developed 
diflerent  counting  methods  for  computing  cyclomatic  complexity  by  counting  rules  for 
case  statements  and  compound  predicates  [Ref  1:  p. 2 10].  Definitive  data  on  the  most 
elTective  counting  rules  has  yet  to  be  presented.  The  best  known  and  most  thoroughly 
studied  of  the  composite  measures  of  complexity  is  Halstead's  theory  of  Software 
Science  [Ref  1:  p.211].  In  1972,  Maurice  Halstead  argued  that  algorithms  have 
measurable  characteristics  analogous  to  physical  laws.  We  will  focus  this  thesis  on 
Halstead's  theory  as  the  representative  metric  we  implement.  We  will  first  look  at 
Halstead's  theor>'. 


C.       HALSTEAD 

Halstead's  software  science  theory  applies  the  scientific  method  to  the  properties 
and  structure  of  computer  programs.  It  attempts  to  provide  precise,  objective 
measures  of  the  complexity  of  existing  software,  which  is  then  used  to  predict  the 
length  of  the  programs  [Ref  9:  p. 3].  Numerous  statistical  studies  have  shown  very 
high  correlations  between  the  theor}''s  predictions  and  actual  program  measures  such 
as  mean  number  of  bugs  [Ref  8:  p. 85].   Halstead  defined  four  basic  measures: 

1.  nl  :  The  number  of  distinct  operators  appearmg  in  a  program. 

2.  n2  :  The  number  of  distinct  operands  appearing  in  a  program. 

3.  Nl  :  The  total  number  of  occurences  of  the  operators  in  a  program. 

4.  N2  :  The  total  number  of  occurences  of  the  operands  in  a   program. 
Halstead  defined  the  size  of  the  vocabulary   to  be  the  operators  plus  the  operands 

as  in  Equation  1.1. 

n  =  nl  +  n2  (eqn  I.l) 

Halstead's  theory  [Ref  S:  p.  11],  says  that  actual  program  length  can  be 
calculated  by  adding  the  total  number  of  operand  references  with  the  total  number  of 
operator  references  as  in  Equation  1.2. 

N  =  Nl  +  N2  (eqn  1.2) 

Halstead,  using  information  theory,  computes  the  theoretical  length  or  predicted 
length  as  in  Equation  1.3. 

N  =  nl  *  (log^  (nl))  +  n2  *  (log^  (n2))  (eqn  1.3) 

Halstead  also  speaks  of  program  volume  as  in  Equation  1.4. 

V  =  N  log2  n  (eqn  1.4) 

The  intuition  is  simple.  For  each  of  the  N  elements  of  a  program,  log2  (n)  bits 
must  be  specified  to  choose  one  of  the  operators  or  operands  for  that  element,  thus, 
volume  (V)  measures  the  number  of  bits  required  to  specify  a  program  [Ref  8:  p.  19]. 
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Halstead  also  hypothesized  a  conservation  law  between  the  level  of  abstraction  and  the 
volume.  The  level  is  defined  as  the  ratio  of  potential  to  actual  volume  where  the 
potential  volume  is  the  volume  of  the  most  compact  (highest-level)  representation  of 
the  algorithm  [Ref  8:  p. 25].  Effort,  another  variable  that  Halstead  suggests,  is  a 
measure  of  the  mental  effort  required  to  create  a  program.  He  describes  effort  as  the 
ratio  of  volume  to  program  level  which  implies  that  programming  difficulty  increases  as 
the  volume  of  the  program  increases,  and  decreases  as  program  level  increases 
[Ref.  8:  p. 47].  Haistead  hypothesized  that  programming  Time  (T)  should  be  directly 
proportional  to  the  Hflbrt  lE)  in  a  program,  as  in  Equation  1.5. 

T  =  E  /  S  (eqn  1.5) 

The  constant  S  represents  the  Speed  of  a  programmer,  i.e.,  the  number  of  mental 
discriminations  per  second  of  which  he/she  is  capable  [Ref  8:  p. 48]. 

We  agree  with  Alan  Perlis.  that  regardless  of  the  empirical  support  for  many  of 
Halstead's  predictions,  the  theoretical  basis  for  his  metrics  needs  considerable  attention 
[Ref.  1:  p. 2 14].  Halstead,  more  than  other  researchers,  tried  to  integrate  theor.-  from 
both  computer  science  and  psychology.  Unfortunately,  some  of  the  psychological 
assumptions  underlying  his  work  are  difficult  to  justify  for  the  phenomena  to  which  he 
applied  them  [Ref  1:  p. 2 14].  Perlis  states,  and  again  we  agree,  that  computer  scientists 
would  do  well  to  purge  from  their  memories  the  magic  number  7  +  or  -  2,  and  the 
Stroud  number  of  18  mental  discriminations  per  second.  These  numbers  describe 
cognitive  processes  related  to  the  perception  or  retention  of  simple  stimuli,  rather  than 
the  complex  information  processing  tasks  involved  in  programming  [Ref  1:  p. 2 14]. 
Broadbent  [Ref  10],  argues  that  for  complicated  tasks  (such  as  understanding  a 
program)  the  magic  number  is  substantially  less  than  seven.  For  the  above  reasons, 
this  thesis  will  focus  on  the  actual  count  of  the  operators  and  operands  and  will  totally 
exclude  any  discussion  about  Halstead's  other  hypothesis. 

D.       OUR  METRIC 

The  metric  we  have  implemented  will  take,  as  input,  an  Ada  program  and  analyze 
this  program  with  respect  to  Halstead's  length  hypothesis.  To  properly  carry  out  this 
task,  the  input  program  must  be  decomposed  into  its  most  basic  lexical  elements,  and 
then  parsed  to  ensure  that  the  program  is  syntactically  correct.   As  the  structure  of  the 
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program  is  being  validated  the  data  needed  for  metric  implementation  is  collected  and 
stored  for  later  analysis.  We  have  designed  a  generic  front-end  for  this  metric  tool 
which  means  other  metrics  can  be  added  at  a  later  date,  thus  giving  the  program  the 
ability  to  be  expanded  and  provide  a  wider  range  of  data.  We  will  cover  each  of  these 
front-end  sections  in  detail  and  describe  how  and  why  our  metric  operates. 
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II.  DEVELOPING  AN  ADA  GRAMMAR 

A.       INTRODUCTION 

The  grammar  of  a  language  specifies  the  syntax  of  the  language  and  is  used  to 
help  guide  the  translation  of  programs.  A  grammar  naturally  describes  the  hierarchial 
structure  of  many  programming  language  constructs  [Ref  11;  p. 26].  A  grammar  has 
four  components: 

1.  A  set  of  tokens,  known  as   terminal  symbols. 

2.  A  set  of  nonterminals. 

3.  A   set  of   productions    which  consists   of  a  nonterminal,  an  arrow,  and  a 
sequence  of  terminals  and/or  nonterminals. 

4.  A  designation  of  one  of  the  nonterminals  as  the  start  symbol. 

Grammars  are  classified  by  many  characteristics,  and  different  parsing  techniques 
are  more  or  less  effective  on  a  particular  class  of  grammar.  The  most  efficient  methods 
of  parsing,  top-down  and  bottom-up,  which  we  will  cover  in  chapter  four,  work  only 
on  certain  subclasses  of  grammars.  Several  of  these  subclasses,  such  as  the  LL  and 
LR  grammars,  are  expressive  enough  to  describe  most  syntactic  constructs  in 
programming  languages  [Ref  11:  p. 160].  Parsers  implemented  by  hand  often  work 
with  LL  grammars  and  parsers  for  the  larger  class  of  LR  grammars  are  usually 
constructed  by  automated  tools.  The  first  L  in  LL  stands  for  scanning  the  input 
from  left-to-right,  the  second  L  for  producing  a  leftmost  derivation.  Conversely  the  L 
in  LR  is  again  for  left-to-right  scanning  of  the  input,  the  R  for  constructing  a 
rightmost  derivation  in  reverse  [Ref  11:  p. 215].  A  grammar  that  is  LL(1)  can  be 
deterministically  parsed  with  a  top  down  left  to  right  scan  by  using  only  one  token 
lookahead.  Therefore,  an  LL(1)  grammar  has  a  parsing  table  with  no  multiply-defined 
entries.  If  the  present  parsing  table  has  multidefined  entries  an  attempt  can  be  made  to 
transform  the  grammar  by  eliminating  all  left  recursion  and  left  factoring  whenever 
possible  [Ref  11:  p. 192].  There  are  some  grammars  for  which  no  amount  of  alteration 
will  yield  an  LL(1)  grammar.  Eliminating  left  recursion  and  then  left  factoring  is  easy 
to  do  but  may  make  the  resulting  grammar  hard  to  read  and  difficult  to  use  for 
translation  purposes.   These  procedures  are  covered  in  the  next  section. 

A  grammar  generates  strings  by  beginning  with  the  start  symbol  and  repeatedly 
replacing  a  nonterminal  by  the  right  side  of  a  production  for  that  nonterminal.    The 
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terminal  strings  that  can  be  derived  from  the    start  symbol  form  the   language   defmed 
by  the  grammar  [Ref  11:  p. 28]. 

B.   GRAMMAR  FOR  THE  ADA  LANGUAGE 

Ada  is  a  ver\'  large  language  consequently  the  grammar  for  this  language  is  also 
very  large.  We  chose  to  use  a  top-down,  recursive-descent  parser,  which  will  be 
covered  in  greater  detail  in  chapter  four,  as  our  method  of  analyzing  our  input 
program.  We  used  the  Ada  language  as  defined  in  the  Ada  Language  Reference 
Manual  (LRM)  [Ref.  12J.  Our  first  step  was  to  translate  the  Ada  language  from  the 
Backus-Naur  Form  given  in  the  Ada  Language  Reference  Manual.  In  translating  this 
grammar,  which  is  not  LL(1),  into  an  LL(l)-nke  grammar,  it  was  necessan.'  to 
massage  the  language  description  given  in  the  manual.  Massaging  is  the  process  of 
removing  all  left  recursion  and  then  left  factoring.  Left  recursion  is  when  the  leftmost 
symbol  on  the  right  side  of  a  production  is  the  same  as  the  nonterminal  on  the  left  side 
of  the  production.  Left  recursion  must  be  eliminated  for  this  top-down,  recursive 
descent  parser  to  alleviate  the  possibiUty  of  infinite  looping.  It  must  be  remembered, 
this  process  does  not  guarantee  that  the  transformed  language  will  be  LL(1).  However, 
we  must  be  sure  to  perform  transformations  that  lead  to  a  grammar  for  the  same 
language.  The  remainder  of  this  chapter  is  devoted  to  the  discussion  and  explanation 
of  how  we  massaged  the  grammar.  The  complete  grammar  used  by  our  parser  can  be 
found  in  Appendix  A.  Our  translation  key  has  terminal  symbols  as  lowercase  letters, 
non-terminal  symbols  as  uppercase  letters,  and  bold-faced  symbols  to  indicate  the 
meta-symbols  of  our  granunar. 

Once  the  initial  grammar  is  expressed  in  our  meta-symbology,  the  next  step  is  to 
remove  all  left  recursion.  Since  the  BNF  form  in  the  LRM  showed  no  left  recursion,  it 
appeared  that  this  step  would  not  be  required.  However,  there  was  one  case  of  left 
recursion  that  was  not  apparent  until  several  substitutions  of  the  productions  had  been 
made.  This  case  involved  the  production  rules  for  NAME, 
INDEXED_COMPONENT,  SLICE,  SELECTED_COMPONENT,  ATTRIBUTE,  and 
PREFIX.  The  production  rules,  when  taken  directly  from  the  LRM,  appear  as  the 
follows: 

NAME   -->   identifier 

-->  character_literal 
— >  string_literal 
-->    INDEX_COMPONENT 
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-->  SLICE 

-->  SELECTED_COMPONENT 
-->  ATTRIBUTE 

INDEXED_COMPONENT  -->  PREFIX  (EXPRESSION) 

SLICE  -->  PREFIX  (DISCRETE_RANGE) 

SELECTED.COMPONENT  -->  PREFIX. SELECTOR 

ATTRIBUTE  -->  PREFIX' ATTRIBUTE_DESIGNATOR 

PREFIX  -->  NAME 

-->  FUNCTION_CALL 

When  starting  with  NAME  and  substituting  in  the  productions,  the  left  recursion 
becomes  readily  apparent.    For  example: 

NAME    -->    SLICE    -->   PREFIX(DISCRETE_RANGE )    ==>   NAME ( DISCRETE_RANGE) 

We  see  that  the  foilowmg  production  exists: 
NAME    -->      NAME    (EXPRESSION) 

Several  other  productions,  left  recursive  on  NAME,  can  be  generated  using  the  other 
rules  listed  above. 

Now  that  left  recursion  does  exist,  we  expanded  out  the  productions  listed  above 
(using  the  same  technique  previously  demonstrated)  and  combined  them  all  as 
production  rules  for  NAME.  The  production  rules  for  INDEXED_COVIPONENT, 
SLICE,  SELECTED_COMPONENT,  and  ATTRIBUTE  were  incorporated  into 
NAME  so  they  were  removed  from  our  grammar.  The  final  set  of  production  rules  for 
NAME  can  be  found  in  Appendix  A. 

The  third  step  in  massaging  our  grammar  is  left  factoring.  Our  parser  could  not 
function  with  one  token  lookahead  if  left  factoring  were  possible.  Left  factoring  is  a 
grammar  transformation  which  uses  the  basic  idea  that  if  it  is  not  clear  which  of  two 
alternative  productions  to  use  to  expand  a  nonterminal,  it  may  be  possible  to  rewrite 
the  productions  to  defer  the  decision  until  we  have  enough  of  the  input  to  make  the 
correct  decision.  To  demonstrate  this  procedure,  we  will  show  the  left  factoring  used 
on  the  productions  for  RELATION.  Taken  directly  from  the  LRM  the  production 
rules  for  RELATION  are  as  follows: 
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RELATION   -->    SIMPLE_EXPRESSION 

-->    SIMPLE_EXPRESSION  RELATIONAL_OPERATOR   SIMPLE_EXPRESSION 
-->   SIMPLE   EXPRESSION   in  RANGES 
-->   SIMPLE_EXPRESSION  not    in  RANGES 
-->    SIMPLE_EXPRESSION   in  TYPE_MARK 
-->   SIMPLE_EXPRESSION  not   in  TYPE_MARK 

Applying  the  rule  of  left  factoring,  a  new  nonterminal. 
SIiVIPLE_EXPRESSION_TAIL.  has  been  added  to  the  grammar.  The  production 
rules  for  RELATION  and  SIMPLE_EXPRESSION_TAIL  now  look  like  the 
following: 

RELATION   -->    SIMPLE_EXPRESSION      SIMPLE_EXPRESSION_TAIL 

SIMPLE_SXPRESSION_TAIL      -->    RELATIONAL_OPERATOR      SIMPLE_EXPRESSION 

-->    in  RANGES 
-->   not   in  RANGES 
-->    m  TYPEJ-IARK 
-->   not    in  TYPE_MARK 

Finally,  in  attempting  to  make  our  grammar  LL(1)  it  was  necessary  to  combine 
several  similar  constructs  together  so  that  it  could  be  parsed  by  one  function  of  the 
parser.  For  example,  the  reserved  word  package  appears  in  several  instances  including 
a  package  specification,  a  package  body  declaration,  a  separate  package  body 
declaration,  a  generic  instantiation  of  a  package,  and  the  renaming  of  a  package.  In 
each  of  these  examples  the  reserved  word  package  is  used,  and  even  with  the  ablility  to 
look  ahead  one  token,  it  is  impossible  to  tell  which  form  of  the  package  construct  is 
being  utilized.  We  massaged  our  grammar  so  that  if  package  is  encountered  the 
function  PACKAGE_DECLARATION  is  called.  The  function 

PACKAGE_DECLARATION  first  checks  for  the  reserved  word  body,  indicating  a 
package  body  declaration,  or  a  separate  package  body  declaration. 
PACKAGE_DECLARATION  then  checks  for  an  identifier,  indicating  a  package 
specification,  a  generic  instantiation,  or  a  renaming  declaration.  If  body  is  present 
then  the  function  PACKAGE_BODY  is  called.  If  an  identifier  is  present  then  the 
function  PACKAGE_UNIT  is  called.  This  technique  of  decision  making  based  on 
reserved    word     or    terminal    symbol    presence    is    extended    into     the    functions 
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PACKAGE_BODY  and  PACKAGE_UNIT  to  further  decide  which  form  of  package  is 
being  utilized.  In  essence,  we  have  expanded  the  production  rules  to  allow  each  new 
production  the  ability  to  correctly  determine,  with  one  token  lookahead,  what  the  next 
production  rule  will  be.  This  entire  process  is  also  used  for  the  different  versions  of 
procedures,   functions,   and  tasks  which  can  appear  in  an  Ada  program. 
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III.  LEXICAL  ANALYZER 

A.  INTRODUCTION 

Ada  is  an  extremely  large  language,  comparable  in  size  to  PLl.  It  was  developed 
on  behalf  of  the  Department  of  Defense  for  use  in  embedded  systems  [Ref  13:  p.xi]. 
Based  on  Pascal  Ada  is  the  first  practical  language  to  bring  together  important 
features  such  as  data  abstraction,  multitasking,  exception  handling,  encapsulation  and 
generics  [Ref  13:  p.xi).  Our  design  approach  utilizes  a  division  of  labor  and  we 
separate  our  metric  into  phases  which  perform  a  single,  specific  function.  The  first  two 
phases,  lexical  analysis  and  parsing,  combine  to  form  a  generic  front-end  machine. 
This  front-end  machine  constructs  an  intermediate  representation  of  the  source 
program.  The  information  necessary  to  implement  the  metric  is  then  collected  and 
analyzed  from  the  intermediate  form.  We  will  look,  in  depth,  at  the  lexical  analyzer 
and  identify  how  it  operates  and  why  it  is  necessar}'. 

B.  TOKENS 

Lexical  Analysis,  often  called  linear  analysis  or  scanning,  is  when  a  stream  of 
characters  making  up  the  source  program  is  read  from  left-to-right  and  grouped  into 
tokens,  which  are  sequences  of  characters  having  a  collective  meaning  [Ref  11:  p. 4]. 
The  character  sequence  forming  a  token,  with  the  legal  characters  as  described  in 
[Ref  12:  p.2-1],  is  called  the  lexeme  for  the  token.  This  lexeme  is  what  is  used  to 
identify  the  actual  operators  and  operands  that  serve  as  the  input  for  our  metric.  All 
variables  will  have  a  lexeme,  such  as  sqrt,  rate,  answer,  and  so  on.  There  are  seven 
token  classes  in  the  Ada  language.  They  are  identifiers,  separators,  numeric  literals, 
delimiters,  comments,  character  literals,  and  string  literals.  The  lexical  analyzer  takes 
the  source  program  one  character  at  a  time,  and  builds  the  token  lexeme  as  it 
determines  the  token  class.  Each  token  is  generated  by  a  finite  state  automaton.  A 
finite  state  automaton,  often  called  a  finite  state  machine,  is  a  mathematical  model  for 
a  device  that  is  capable  of  recognizing  strings  of  characters  defined  by  a  certain  class  of 
grammars,  called  regular  grammars.  Our  scanner,  or  lexical  analyzer,  can  be  in  any 
one  of  a  finite  number  of  internal  configurations  or  states  [Ref  14:  p.  13].  The  state  of 
the  system  summarizes  the  information  concerning  past  inputs  that  is  needed  to 
determine  the  behavior  of  the  system  on  subsequent  inputs.   The  lexical  analyzer  scans 
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the  symbols  of  a  computer  program  to  locate  the  strings  of  characters  corresponding  to 
one  of  the  seven  token  types  mentioned  earlier.  In  this  process  the  lexical  analyzer 
needs  to  remember  only  a  Unite  amount  of  information,  such  as  how  long  a  prefix  of  a 
reserved  word  it  has  seen  since  startup  [Rcf  14:  p.  14]. 

We  will  now  address  these  tokens  individually  and  discuss  not  only  their  purpose 
and  content  but  also  the  finite  state  machines  we  programined  to  handle  their 
recognition. 

1.   Identifiers 
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Figure  3.1     Finite  State  Machine  for  Identifiers. 

Identifiers  are  used  as  names  and  also  as  reserved  words  [Ref.  12:  p. 2-4].  An 
identifier  must  start  with  a  letter  and  it  can  then  be  any  combination  of  letters,  digits 
or  the  underscore  character  {_).  There  cannot  be  two  underscore  characters  side  by 
side  in  the  identifier  and  there  is  no  maximum  length  specified  for  any  identifier. 
Identifiers  diflcring  only  in  the  use  of  corresponding  upper  and  lower  case  letters  are 
considered  as  the  same  (Ref  12:  p. 2-4].  The  finite  state  machine  we  programmed  to 
identify  and  store  token  identifiers  is  seen  in  Figure  3.1. 
2.  String  Literal 

A  string  literal  is  formed  by  a  sequence  of  zero  or  more  graphic  characters 
enclosed  between  two  quotation  characters  (")  used  as  string  brackets  |Ref  12:  p. 2-6]. 
A  string  literal  has  a  value  that  is  a  sequence  of  character  values  corresponding  to  the 
graphic   characters   of  the   string   literal   apart    from   the   quotation   character   itself 
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Figure  3.2     Finite  State  Machine  for  String  Literals. 

[Rcf.  12:  p. 2-61.  If  a  quotation  character  value  is  to  be  represented  in  the  sequence  of 
character  values,  then  a  pair  of  adjacent  quotation  characters  must  be  written  at  the 
corresponding  piace  witiiin  the  string  literal.  I'he  length  of  a  string  literal  is  the 
number  oi'  character  values  in  the  sequence  represented,  except  for  doubled  quotation 
characters  which  are  counted  as  a  single  character  (Ref.  12:  p. 2-6],  A  string  literal  must 
fit  on  one  line  since  it  is  a  lexical  element  but  longer  sequences  of  graphic  characters 
can  be  obtained  by  catenation  of  string  literals  (Ref  12:  p. 2-7).  Except  for  the  instance 
of  doubled  quotation  characters,  the  finite  state  machine  we  programmed  to  identify 
and  store  token  siring  literals  can  be  seen  in  Figure  3.2. 
3.  Character  Literals 
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Figure  3.3     Finite  State  Machine  for  Character  Literals. 
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A  character  literal  is  formed  by  enclosing  one  of  the  95  graphic  characters 
(including  the  space),  which  arc  described  in  [Ref  12:  p. 2-1],  between  two  apostrophe 
characters  (').  A  character  literal  has  a  value  that  belongs  to  a  character  type.  The 
finite  Slate  machine  we  created  to  identify  and  store  token  character  liierals  can  be 
seen  in  Figure  3.3. 
4.  Comments 
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Figure  3.4     Finite  State  Machine  for  Comments. 

A  comment  starts  with  two  adjacent  hyphens  and  extends  up  to  the  end  of  the 
line.  A  comment  can  appear  on  any  line  of  a  program  (Ref  12:  p-2-7].  'Ihe  presence 
or  absence  of  comments  has  no  influence  on  whether  a  program  is  legal  or  illegal. 
Furthermore,  comments  do  not  influence  the  elTocl  of  a  program.  Ihe  sole  purpose  of 
comments  is  to  provide  clarity  and  explanation  to  the  human  reader.  The  horizontal 
tabulation  can  be  used  in  comments,  after  the  double  hyphen,  and  is  equivalent  to  one 
or  more  spaces  [Ref  12:  p. 2-7].  The  Unite  state  machine  we  programmed  to  identify 
and  store  token  comments  can  be  seen  in  Figure  3.4. 
5.  Separators 

In  certain  cases  an  explicit  separator  is  required  to  separate  adjacent  lexical 
elements  (namely,  without  separation,  interpretation  as  a  single  lexical  element  is 
possible)  |Ref  12:  p.2-31.  A  separator  is  any  of  a  space  character,  a  format  elfector 
(such  as  horizontal  tabulation,  vertical  tabulation,  carriage  return,  line  feed,  and  form 
feed),  or  the  end  of  a  line  (Ref  12:  p. 2-3).  A  space  character  is  a  separator  except 
within   a    comment,   a    string   literal,   or   a   space   character   literal.      Ihe   horizontal 
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Figure  3.5     Finite  StateMachine  for  Separators. 

tabulation  is  not  a  separator  within  a  comment.  One  or  more  separators  are  allowed 
between  any  two  adjacent  lexical  elements  (tokens),  and  at  least  one  separator  is 
rcLiuired  between  an  identifier  or  a  numeric  literal  and  an  adjacent  identifier  or  numeric 
literal.  The  finite  state  machine  we  programmed  to  identify  and  store  token  separators 
is  seen  in  Figure  3.5. 
6.  Delimiters 
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Figure  3.6     Finite  State  Machine  for  Delimiters. 

A  simple  delimiter  is  either  one  of  the  following  special  characters  (in  the  basic 
character  set): 

&'()*   +   ../:<    =    >    I  : 
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A  compound  delimiter  is  one  of  tiie  following,  each  composed  of  two  adjacent 
special  characters 

=  >      ..     **     :=        =      >=      <=      >>     <<     <> 

Any   other   combination    of  adjacent    special    characters   is   not   a    legal   compound 
delimiter.    The  finite  state  machine  we  programmed  for  identifying  and  storing  token 
delimiters   is  seen  in  Figure  3.6. 
7.  Numeric  Literal 

The  numeric  literal  is  by  far  the  most  complex  and  varied  type  of  token.  It 
encompasses  real  numbers,  integer  numbers,  and  based  numbers  which  are  numeric 
literals  expressed  in  an  explicitly  specified  base  between  _  and  16  [Ref.  12:  2-5']. 'p.  A 
real  number  is  a  number  with  a  decimal  point,  an  integer  is  a  number  without  a  point 
and  a  based  literal  is,  again,  a  number  whose  base  is  explicitly  stated.  An  underline 
character  i _)  inserted  between  adjacent  digits  of  a  numeric  literal  does  not  affect  the 
value  o(  this  numeric  literal.  The  only  letters  allowed  as  extended  digits  are  the  letters 
A  through  F,  which  stand  for  the  digits  ten  through  fifteen  in  hexidecimal.  A  letter  m 
a  based  number  can  be  written  either  in  lower  case  or  in  upper  case,  with  the  same 
meaning  [Ref.  12:  p. 2-5].  Leading  zeros  are  allowed.  No  space  is  allowed  m  a  numeric 
literal,  not  even  between  constituents  oi  the  exponent,  since  a  space  is  a  separator.  .A. 
zero  exponent  is  allowed  for  an  integer  literal.  The  finite  state  machine  we 
programmed  to  identify  and  store  token  numeric  literals  can  be  seen  in  Figure  3.7. 

C.       TOKEN  USE 

As  was  seen  in  Chapter  II,  a  grammar  is  made  up  of  terminals,  non-terminals,  a 
start  symbol,  and  productions.  The  terminals  are  the  basic  symbols  from  which  strings 
are  formed.  These  strings  are  the  combinations  of  the  most  basic  symbols,  tokens, 
which  form  meaningful  expressions  to  a  particular  language.  To  be  able  to  analyze 
these  strings  and  determine  whether  or  not  a  given  string  is  a  legal  statement  in  any 
given  language  we  must  first  identify  each  token  as  it  is  entered  by  the  program. 
Identification  of  the  tokens  permits  the  computer  to  compact  the  incoming  data  thus 
allowing  the  saving  of  space.  For  example,  if  someone  placed  ten  blanks  in  an  input 
program  where  only  one  was  needed,  lexical  analysis  would  see  the  separator  and  fiush 
the  other  unused  blanks,  thus  saving  space.  Certain  tokens  will  be  augmented  by  a 
lexical  value.  For  example,  when  an  identifier  like  rate  is  found,  the  lexical  analyzer 
not  only  generates  a  token,  say  id,    but  also  enters  the  lexeme    rate    into  the  symbol 
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Figure  3,7     Finite  State  Machine  for  Numeric  Literals. 
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table,  if  it  is  not  already  there  [Ref.  11:  p.  12].  The  lexical  value  associated  with  this 
occurence  of  id  points  to  the  symbol-table  entr>'  for  id.  The  construction  of  these 
tokens  is  done  by  reading  one  character  at  a  time  and  building  the  lexeme  of  the  token 
by  appending  the  appropriate  characters  together.  This  translation  from  the  input 
program  to  a  simple  stream  of  tokens  is  the  sole  job  of  the  lexical  analyzer.  In  the 
next  chapter  we  will  look  at  the  system  parser  and  its  functions. 
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IV.  PARSER 

A.       INTRODUCTION 

The  parser,  which  is  the  second  component  of  our  front-end  machine,  is  the 
mainstay  of  our  metric.  Parsing  is  also  called  hierarchical  analysis  or  syntax  analysis. 
It  involves  grouping  the  tokens,  created  by  the  lexical  analyzer,  of  the  source  program 
into  grammatical  phrases  that  are  used  to  synthesize  output  [Ref  11;  p. 6].  A  parser 
can  be  constructed  for  any  context-free  grammar.  The  important  factor  in  parsing  is 
speed.  Given  a  programming  language,  we  can  generally  construct  a  grammar  that  can 
be  parsed  quickly.  Most  programming  language  parsers  make  a  single  left-to-right 
scan  over  the  input,  looking  ahead  one  token  at  a  time  [Ref  11:  p. 41].  In  discussing 
this  parsing  problem,  it  is  helpful  to  think  of  a  parse  tree  being  constructed,  even 
though  our  front-end  machine  does  not  actually  construct  a  tree.  A  parse  tree 
describes  the  syntactic  structure  of  the  input.  It  pictorially  shows  how  the  start  symbol 
of  a  grammar  derives  a  string  in  the  language  [Ref  11:  p. 29].  Formally,  given  a 
context-free  grammar,  a  parse  tree  is  a  tree  with  the  following  properties: 

1.  The  root  is  labeled  by  the  start  symbol. 

2.  Each  leaf  is  labeled  by  a  token  or  empty  string. 

3.  Each  interior  node  is  labeled  by  a  nonterminal. 

The  leaves  of  a  parse  tree,  read  from  left  to  right,  form  the  yield  of  a  tree,  which 
is  the  string  generated  or  derived  from  the  nonterminal  at  the  root  of  the  parse  tree 
[Ref  11:  p. 29].  The  term,  context-free  grammar,  which  is  mentioned  earlier,  defines  a 
finite  set  of  variables  (also  called  nonterminals  or  syntactic  categories),  each  of  which 
represents  a  language  [Ref  14:  p. 77].  A  context-free  grammar  is  denoted  G  = 
{V,T,P,S),  where  V  and  T  are  finite  sets  of  variables  and  terminals  respectively 
[Ref  14:  p. 79].  P  is  a  finite  set  of  productions;  each  production  (A  =  >  W)  is  of  the 
form  A  produces  W  where  ^  is  a  variable  and  W  is  a  string  of  symbols  from  any 
combination  of  (V  union  T).  Finally,  S  is  the  start  symbol.  It  must  be  noted  though 
that  although  our  front-end  machine  is  capable  of  constructing  a  parse  tree  (otherwise 
the  translation  would  not  be  guaranteed  correct)  the  actual  tree  is  not  necessary  for 
our  metric  purposes  and  is  therefore  not  built. 
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Most  parsing  methods  fall  into  one  of  two  classes,  top-down  and  bottom-up 
methods  [Ref  11:  p.41].  These  terms  refer  to  the  order  in  which  nodes  in  the  parse 
tree,  if  the  tree  actually  existed,  were  constructed.  In  the  top-down  method. 
construction  starts  at  the  root  and  proceeds  towards  the  leaves  going  deeper  and 
deeper  until  eventually  reaching  the  bottom.  In  the  bottom-up  method  it  is  just  the 
opposite.  Construction  starts  at  the  bottom  and  proceeds  towards  the  root.  The 
popularity  of  top-down  parsers  is  due  to  the  fact  that  efficient  parsers  can  be 
constructed  more  easily  by  hand  using  r.op-do\^Ti  methods  [Ref  11:  p.41].  Bottom-up 
parsing,  however,  can  handle  a  larger  class  oi  grammars  and  translation  schemes,  so 
software  tools  for  generating  parsers  directly  from  grammars  have  tended  to  use 
bottom-up  methods  [Ref.  11:  p.41j.  Because  of  its  elFiciency  and  ease  of  use,  we  have 
chosen  to  use  the  top-down  method  of  parsing  for  the  front-end  machine  of  our  metric. 
Furthermore,  we  chose  a  particular  type  oi  top-down  parsing  called  recursive-descent. 
This  technique,  a  classical  method  oiten  used  m  industry',  is  ven/  powertlil.  We 
describe  its  operation  m  the  following  section. 

B.       TOP-DOWN  RECURSIVE  DESCENT  PARSING 

Recursive-descent  parsing  is  a  top-down  method  of  syntax  analysis  in  which  we 
execute  a  set  of  recursive  procedures  to  process  the  input  [Ref.  11:  p. 44].  A  function  is 
associated  with  each  nonterminal  of  a  grammar.  We  now  consider  a  special  form  of 
recursive-descent  parsing,  called  predictive  parsing,  in  which  the  token  symbol 
unambiguously  determines  the  function  selected  for  each  nonterminal  [Ref  11:  p. 44]. 
The  sequence  of  functions  called  in  processing  the  input  implicitly  defines  a  parse  tree 
for  the  input. 

Our  procedure  GET_CURRENT_TOKEN_RECORD  builds  an  array  of  fifty 
tokens  and,  starting  at  the  initial  position  controls  a  pointer  which  identifies  the 
current  token  being  parsed  and  another  pointer  which  identifies  the  next  or  lookahead 
token  to  be  parsed.  The  function  BYPASS  is  the  central  control  and  workhorse  for 
our  parser.  It  compares  the  current  token  with  predefined  terminals.  If  there  is  a 
token-to-terminal  match,  BYPASS  consumes  the  token  by  adjusting  the  index  pointers. 
All  of  the  terminal  symbols  in  the  Ada  language  are  defined  and  any  nonterminal  is,  as 
was  stated  earlier,  a  function  call  that  returns  a  boolean  value  of  true  or  false. 

Parsing  begins  with  a  call  for  the  starting  nonterminal,  which  is  COMPILATION 
in   the  Ada   grammar.     Parsing   progresses  as   each  function   calls   other   functions. 
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descending  into  the  parse  structure  until  a  call  to  BYPASS  is  performed  and  the 
appropriate  boolean  value  is  returned.  This  process  of  ascending  and  descending  the 
parse  structure  continues  until  all  the  tokens  created  from  the  input  file  have  been 
consumed  or  an  error  occurs. 

We  made  an  attempt  to  design  the  parser  to  be  as  robust  as  possible.  However. 
due  to  the  complexity  of  the  language  we  were  often  forced  to  rely  on  the  fact  that  the 
input  file  had  been  correctly  compiled  before  being  fed  into  our  parser.  The  fact  that 
the  input  file  was  precompiled  allowed  us  to  drop  the  italicized  element  oi'  the 
nonterminals  in  the  grammar.    Some  examples  of  this  modification  are: 

1.  A  parser  for  a  compiler  would  aormailv  have  to  remember  the  type  associated 
with  NAME  each  time  it  was  encountered.  In  our  case  we  smrpiv  drooped  the 
tvDe  reauirement  and  parsed  all  of  them  with  the  function  NAME:. '  For  example, 
air  of  the  ibilowme  are  reduced  to  just  MAHE  :  TYPE.MAME,  VARIABLE_MAtIE , 
PROCEDURE_NAME,^  FUNCTION_NAME,  ENTRY_NAME ,  and  this  list  is  far  from 
complete. 

2.  Another  example  occured  when  we  drooped  the  italicized  element  of  the 
nonterminal  EaPRESSIOI^I.  Since  the  tvoe  had  been  checked  bv  a  full  compiler, 
for  our  parser  :he  foilowme  three  nohierminals  became  simolv  EXPRESSION: 
UNIVERSAL_5TATIC_EXPRESSI0N.  OUALIFISD_EXPRESSrON.  and 
300L£An_EXPRESSI0N.  i  he  toilowme  two  noncerrmnais  'oecame 
SIMPLE_iXPP.ES5I0N  for  the  same  reasons:"  STATIC  SIHPLE_SXPRESSION,  and 
DELAY_SIHPLE_EXPRESSION. 

3.  Our  third  examole  is  rhat  bv  droppms  the  italicized  element  of 
DISCRETE  SUBTYPE_INDICATION  and  C0MP0NEMT_SUBTYPE  INDICATION,  thev 
can  both  &e  correctly  parsed  by  SUBTYPE_INDICATION. 

The  changes  highlighted  above,  and  others  that  are  not  shown,  were  done  to 

reduce  the  size  and  complexity  of  the  parser.   Having  to  retain  all  the  type  information 

would  have  required  a  much  more  extensive  parsing  element.    This  reduction  allows 

our  parser  to  be  more  efficient  in  its  operation.    We  did  not  intend  for  our  front-end 

machine  to  be  a  full  compiler.    We  only  needed  to  parse  an  input  file  in  enough  detail 

to  be  able  to  collect  the  meaningful  and  relevant  metric  data. 
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V.  ADAMEASURE 

A.  INTRODUCTION 

As  was  seen  in  the  first  chapter  of  our  thesis  there  is  a  variety  of  different  metric 
theories.  By  request  of  the  Vlissile  Software  Branch,  Naval  Weapons  Center,  China 
Lake,  we  implemented  the  Halstead  Software  Science  Metric.  In  the  efTort  to  provide 
as  much  mformation  about  the  input  program  as  possible,  we  also  provide  information 
on  comments  and  nesting.  We  felt  it  was  important  to  avoid  trying  to  generate  a 
single  number,  say  betweeen  one  and  ten,  which  would  be  an  attempt  to  quantify  the 
given  metric  information  into  a  single  numeric  statement.  Instead  we  generate  a  few 
important  numbers,  then  we  apply  some  reasoning  to  what  we  believe  these  numbers 
mean  in  relation  to  program  complexity  and  overall  software  quaUty.  We  stress  what 
the  program  says  about  the  software  is  merely  suggestive. 

B.  DATA  COLLECTION 

In  explaining  the  how  and  why  of  our  data  gathering,  we  will  deal  with  each  of 
the  three  types  of  information  analysis  separately. 

1.  Halstead  Data 

As  stated  in  chapter  one,  we  only  implemented  the  program  length  metric 

from  Halstead's  software  science  theory.    We  gathered  the  operator   data  through  our 

workhorse  function  BYPASS  which  counted  every  token-to-operator  terminal  match. 

To  acquire  the  operand   data  we  generated  a  symbol  table  of  all  identifiers,  be  they 

variables,  procedures,  functions,  tasks,  blocks,  or  numeric  constants.    Once  this  was 

completed  we  now  had  the  four  Halstead  parameters  nl,  n2,  NT,  and  N2.    Having 

calculated  the  theoretical  length    and    actual  length   we  divided  both  of  these  numbers 

by  total  lines  input  to  allow  comparisons  of  results  from  programs  of  different  size. 

If    the    actual    length    is    greater    than    the    theoretical    length    Halstead 

hypothesized  that  the  difference  is  caused  by  one  or  more  of  the  following  six  classes  of 

impurities. 

•  Cancelling  :  The  occurence  of  an  inverse  cancels  the  efiect  of  a 

previous  operator;  no  other  use  of  the  variable  changed 
by  the  operator  is  made  before  the  cancellation. 


•  Ambiguous  operands  :  The  same  operand  is  used  to  represent  two  or  more 

variables  in  an  algorithm. 
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•  Svnonvmous  operands         :   Two   or  more   operand   names   represent   the   same 

variable. 

•  Common  subexpressions     :  The  same  subexpression  occurs  more  than  once. 

•  Unnecessary'  replacements  :  A  subexpression  is  assisned  to  a  temporar\'  variable 

which  is  used  only  once. 

•  Unfactored  expressions        :    There   are    repetitions    of  operators    and    operands 

among  unfactored  terms  in  an  expression. 

If  the  theoretical  length  is  greater  than  the  actual  length  then  the  following 
conditions  could  exist: 

•  Operands    ;    There    mav    be    some    variables    which    were    declared    but    never 

referenced  in 'the  program. 

•  Globals       :  A  larse  number  of  the  variables  referenced  were  declared  in  the 

packages  mstanciated  by  the  WITH  statement. 

2.  Comment  Data 

As  the  input  file  is  parsed,  a  count  is  kept  of  the  comment  lines.  Upon 
completion  of  parsing  the  number  of  comment  lines  is  divided  by  the  total  lines  input, 
then  multiplied  by  one-liundred  to  yield  the  overall  comment  percentage.  On  the  basis 
of  this  percentage  we  make  recommendations,  that  might  prove  helpful  to  the  software 
engineer.  Briefly,  we  consider  a  comment  percentage  between  zero  and  fifteen  percent 
as  low  and  we  state  that  unless  the  program  utilizes  Ada's  extensive  variable 
identification  ability  then  there  may  be  too  few  comments  for  adequate  reader 
comprehension.  We  consider  a  comment  percentage  between  fifteen  and  fifty  as  a 
reasonable  number  and  state  that  this  could  give  the  reader  a  good  understanding  of 
the  program.  A  comment  percentage  between  fifty  and  eighty-five  percent  is 
considered  fairly  high  and  we  state  that  the  program  has  good  understandability  but 
runs  a  small  risk  of  obscuring  the  code.  Lastly,  a  comment  percentage  between  eighty- 
five  and  one-hundred  percent  is  an  extremely  high  percentage  and  we  say  that  the 
program  has  a  higher  possibility  of  obscuring  the  code  in  the  high  number  of 
comments. 

3.  Nesting  Data 

Determining  a  program's  complexity  is  not  an  easy  thing  but  it  is  generally 
accepted  that  as  the  nesting  level  increases  so  goes  the  complexity  level.  We  have 
implemented  a  nesting  level  summary  which  counts  how  frequently  a  given  nesting 
level  was  reached,  maintains  a  record  for  each  level,  and  keeps  track  of  the  maximum 
level  used  and  where  it  was  first  encountered. 
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VI.  CONCLUSIONS 

A.  METRICS 

The  Department  of  Defense's  interest  in  metrics  provides  a  powerful  motivation 
for  the  continued  research  into  possible  metric  tools.  The  software  crisis  is  severe 
enough  :o  warrant  toois,  aids,  just  any  bit  of  information  that  'vvill  improve  die 
softw^are  engineering  process.  Computer  Science  is  sucn  an  infant  m  die  world  of 
academia  and  metrics  is  such  a  very  small  part  of  this  child  that  we  are  aware  of  the 
difficulty  in  finamg  breakthroughs.  The  computer  scientists  may  have  tried  to  "catch- 
up" with  the  other  sciences  much  too  rapidly,  consequently  they  may  have  missed 
laying  some  of  the  necessary  foundations. 

Our  initial  eifort  is  a  good  start,  a  baseline  from  which  future  erforts  can  build 
upon.  AdaMeasure  is  a  helpful  tool  for  providing  the  sottware  engineer  with  the 
information  that  is  presently  gathered  by  hand.  We  do  not  feel  software  metrics  should 
simply  attempt  putting  a  number  onto  a  program  in  the  eiTort  to  quantify  its  quaUtv. 
Text  describing  what  the  metric  has  seen  and  how  it  relates  to  the  programmer  and  the 
program  is  what  is  really  needed  for  the  output.  It  is  this  bridging  from  the  concrete 
world  of  the  metric  to  the  abstruse,  metaphysical  environment  of  the  actual  software 
that  presents  the  real  challenge.  As  we  collect  and  analyze  the  data,  we  bridge  this  gap 
by  providing  recommendations  to  the  user  on  how  we  see  the  interrelationship  of  these 
two  entities.  These  recommendations  are  based  on  currently  accepted  software 
practices. 

B.  IMPLEMENTATION 

In  our  effort  to  make  the  Ada  grammar  more  LL(I)-like  we  were  forced  to 
perform  extensive  massaging.  This  massaging  allowed  us  to  use  the  top-dowm, 
recursive-descent  parsing  technique.  This  classical,  time  tested  method  proved  to  be 
easily  implemented  and  debugged.  The  extensive  massaging  made  it  necessary  for  us  to 
frequently  check  and  reaffirm  that  the  language  generated  by  our  newly  transformed 
grammar  was  exactly  the  same  as  the  initial  language.  This  point  cannot  be 
overstated.  The  languages  must  be  identical.  Because  of  the  complexity  involved  in 
massaging  and  checking  the  grammar,  we  feel  we  have  some  insight  into  how 
languages  are  created,  how  they  build  upon  themselves,  and  where  languages  are  going 
in  the  future. 
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When  we  originally  accepted  the  proposal  for  creating  a  metric,  we  were  not 
aware  of  how  complex  and  time  consuming  the  implementation  of  the  front-end 
machine  would  be.  This  complextiy,  coupled  with  the  fact  that  Ada  is  a  brand  new 
language  and  relatively  unknown  other  than  by  name,  made  it  a  struggle  until  we  had 
significantly  progressed  along  the  learning  curve.  We  found  the  Ada  compiler,  which  is 
currently  a  state-of-practice  compiler,  to  be  extremely  slow  in  comparison  to  the 
compilers  we  were  familiar  with  such  as  Pascal  or  Fortran.  The  Naval  Postgraduate 
School  has  no  Ada  compiler  so  we  were  forced  to  work  over  Arpanet  or  Telnet  for  the 
actual  programming.  This  presented  problems  and  delays  on  a  regular  basis.  The 
expiration  of  access  card  numbers,  the  malfunctioning  ot'  the  bridge  box.  the  networks 
going  down,  the  slow  baud  rate  between  stations,  and  machine  downtime  at  NWC 
China  Lake,  both  scheduled  and  nonscheduled,  made  information  transfer  a  real  hurdle 
in  the  overall  elTort. 

C.       THE  FUTURE 

Having  designed  a  generic  .metric  tooi.  we  hope  the  program  will  be  expanded 
and  improved.  There  is  already  a  plan  in  progress  to  have  Sallie  Henr>'  and  Dennis 
Kafura's  Complexity  Flow  Vletric  implemented.  There  is  a  real  need  for  user  interface 
improvements.  Because  of  the  limited  hardware  options  available  to  us,  we  have 
programmed  our  interface  to  deal  with  the  VT-100  terminal.  To  make  the  system  more 
robust  and  transportable,  an  interface  scheme  that  would  be  functional  from  a  variety 
of  different  terminals  would  be  a  useful  endeavor. 

This  metric  was  undertaken  at  the  request  of  NWC  China  Lake  and  all  of  our 
efforts  have  been  guided  by  their  input  to  us.  Pragmas,  which  are  used  to  convey 
information  to  the  compiler,  are  currently  being  used  in  run-time  systems  only  at  China 
Lake  and  although  they  are  in  the  Ada  grammar  we  have  not  implemented  them  in  our 
metric.  It  would  greatly  increase  the  value  of  the  program  if  the  pragma  portion  of  the 
grammar  were  implemented.  The  Software  Missile  Branch  of  NWC  China  Lake  has 
provided  all  the  Ada  programs  at  their  disposal  to  help  us  test  our  metric  for  proper 
parsing.  We  have  successfully  tested  our  metric  on  all  these  files  and  we  have 
successfully  tested  our  own  code  by  feeding  our  metric  into  itself  Although  our  tests 
have  been  successful  we  have  not  tested  all  of  our  code.  There  is  a  particular  need  for 
programs  that  will  test  our  metric  in  the  area  of  tasking  and  all  the  code  that  is 
associated  with  it.   This  testing  effort  should  be  carried  our  as  soon  as  possible. 
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Metrics  are  important.  We  hope  that  our  initial  work,  will  be  expanded  and  put 
to  real  use  as  a  aid  to  the  software  engineer.  Although  Ada  is  new  and  relatively 
unexplored  as  a  language,  we  feel  it  will  begin  to  build  and  become  more  popular.  We 
hope  our  metric  adds  to  this  building  process. 
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APPENDIX  A 
MODIFIED  ADA  GRAMMAR 

Our  translation  kev  has  terminal  svmbols  as  lowercase  letters,  nonterminal 
symbols  as  uppercase  letters,  and  bold-faced  symbols  to  indicate  the  meta-symbols  of 
our  grammar. 

(9. 10  J  (parsers) 

ABORT.STATEMENT  — >   NAME  [  ,  NAME] 

(9.5)  (parserl) 

ACCEPT_STATEMENT  — >  identifier  [  (EXPRESSION)  ?]  [  FORMAL_PART  ?] 

[  do  SEQUENCE_0F_STATEMENTS  end  [  identifier  ?]  ?]   > 

(4.3)  (parsers) 

AGGREGATE  — >   ( COMPONENT_ASSOCIATION  [  ,  C0MP0NENT_ASS0CIATI0N]   ) 

C^.S)  (parsers) 

ALLOCATOR  -->   SUBTYPE_INDICATICN  [  'AGGREGATE  ?] 

(3.6)  (parsers) 

ARRAY_TYPE_DEFINITION    — >   ( INDEX.CONSTRAINT  of  SUBTYPE_INDICATION 

(5.2)  (parssrZ) 

ASSIGNMENT_OR_PROCEDURE_CALL  — >   NAME  :=  EXPRESSION  > 

-->   NAME  } 


(4.1.<^)  (parsers) 

ATTRIBUTE_DESIGNATOR  — >   identifier  [  (EXPRESSION)  ?] 

range  [  (EXPRESSION)  ?1 
digits  [  (EXPRESSION)  ?] 
■>  delta  [  (EXPRESSION)  ?] 


—  > 
— > 


<3.1)  (parserl) 

BASIC_DECLARATION  — >  type  TYPE.DECLARATION 

~>  subtype  SUBTYPE_DECLARATION 

-->  procedure  PROCEDURE_UNIT 

-->  function  FUNCTION_UNIT 

-->  package  PACKAGE_DECLARATION 

— >  generic  GENERIC_DECLARATION 

— >  IDENTIFIER_DECLARATION 

— >  task  TASK_DECLARATION 

(3.9)  (parserl) 

BASIC_DECLARATIVE_ITEM   — >  BASIC_DECLARATION 

-->  REPRESENTATION_CLAUSE 

— >  use  WITH_OR_USE_CLAUSE 

(10.1)  (parserO) 

BASIC_UNIT   — >   LIBRARY.UNIT 

-->   SECONDARY_UNIT 

(4.5)  (parser^) 
BINARY_ADDING_OPERATOR   -->   + 

— > 

— >  a 

(5.6)  (parserl) 

BLOCK_STATEMENT  ~>  [  identifier  :  ?]  [  declare  DECLARATIVE.PART  ?]  begin 

SEqUENCE_OF_STATEMENTS  [  exception  [  EXCEPTI0N_HANDLER]  ?]  ?] 
end  [  identifier  ?]  j 
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(5.<t)  (parserl) 

CASE_STATEMENT  ~>  EXPRESSION  is  [  CASE_STATEMENT_ALTERNATIVE]   end  case  > 


(5.4)  (parserl) 

CASE_STATEMENT_ALTERNATIVE  ~>  when  CHOICE  [   I  CHOICE] 


:>  SEQUENCE_0F_STATEMENTS 


(3.7.3)  (parser3) 

CHOICE  -->  EXPRESSION 
-->  EXPRESSION 
-->  others 


. .SIMPLE_EXPRESSION  ?] 
CONSTRAINT  ?] 


(10.1)  (parserO) 

COMPILATION  ~>  [  C0MPILATI0N_UNIT] 


(10.1)  (parserO) 
COMPILATION  UNIT  — 


>   CONTEXT  CLAUSE   BASIC  UNIT 


(4.3)  <  parser^  ) 

C0MPCNENT_AS30CIATIDN  — >  [  CHOICE  [  I  CHOICE]"*   =>  ?]  EXPRESSION 

(3.7)  ( parsers  ) 

COMPONENT_0ECLARATION  ~>   IDENTIFIER_LIST  :  SUBTYPE_INDICATION  [  :=  EXPRESSION?]  ; 

(3.7)  (parserZ)  ^ 

COMPONENT_LIST  — >  [  COMPONENT.OECLARATION]  [  7ARIANT_PART  ?] 
— >  null  > 


(S.l)  i parserl ) 
COMPOUND  STATEMENT 


-->  if  IF_3TATEMENT 

— >  case  CASc_3TATEMENT 

-->  L.00P_3TATEMENT 

--^  3L0CK_3TATEMENT 

-->  accept  ACCcPT_3TATEMENT 

-->  select  SELECT  STATEMENT 


(3.2)  (parser2) 

CONST ANT_TERM   — >  array  CONSTRAINED_ARRAY_0EFINITION  [  :=  EXPRESSION  ?]  > 

~>  :=  EXPRESSION 

~>  NAME   IDENTIFIER_TAIL 

(3,3.2)  (parser3) 

CONSTRAINT   ~>   range  RANGES 

~>  digits  FLOATING_OR_FIXED_POINT_CONSTRAINT 
~>  delta  FL0ATING_0R_FIXED_POINT_C0NSTRAINT 
~>   (INDEX  CONSTRAINT 


(10.1.1)  (parserl) 


CONTEXT_CLAUSE  — >  [  with  WITH_OR_USE_CLAUSE  [  use  WITH_0R_USE_CLAUSE]  ] 

(3.9)  (parserl) 

DECLARATIVE_PART  — >  [  basic_declarative_item]  [  LATER_DECLARATIVE_ITEM] 


(9.6)  (parsers) 
DELAY_STATEMENT 


->  SIMPLE_EXPRESSI0N  J 


(6.1)  (parser2) 

DESIGNATOR   --> 

—  > 


identifier 
string_litaral 


(3,6)  (parser3) 
DISCRETE  RANGE  - 


RANGES  [  CONSTRAINT  ?] 


(3.7.1)  (parser 2) 
DISCRIMINANT  PART  — > 


(DISCRIMINANT_SPECIFICATION  [  j  DISCRIMINANT_SPECIFICATIOn]*  ) 


(3.7.1)  (parser2) 
DISCRIMINANT_SPECI FICATION 


->  IDENTIFIER_LIST  :  NAME  [  :=  EXPRESSION  ?] 


35 


(9.5)  (parser2) 

ENTRY_DECLARATION  ~>   entry  identifier  [  ( OISCRETE_RANGE 1  ?]  [  FORMAL_PART  ?]  > 


(3.5.1)  ( parser'*) 
ENUMERATION_LITERAL   --> 
—  > 


identifier 
character_literal 


(3.5.1)  (parser"^)  ^ 

ENUMERATION_TYPE_DErINITION  -->   ( ENUMERATION_LITERAL  [  ,  ENUMERATION.LITERAL]  ) 


(11.1)  ( parsers  ) 
EXCEPTIONCHOICE 


— >   identifier 

— >   others 


(11.2)  (parserl)  ^ 

EXC£PTI0N_HANDLER  — >   when  5XCEPTI0N_CH0ICE  [  I  EXCEPTI0N_CH0ICE] 

=  >   SEQUENCE  OF  S7ATEME^^TS 


(8.5)  ( parsers ) 
EXCEPTION_TAIL  --> 
—  > 


renames  NAME  v 


(5.7)  (parsers) 

EXIT_STATEMENT  —  >  [  NAME  ?]  [  when  EXPRESSION  ?]  > 

i^.'i)    ( parser? ) 

EXPRESSION  ~>   RELATION   RELATION_TAIL 

C*."*  )  (  parser?  ) 

FACTOR    -->   PRIMARY  [  **  PRIMARY  ?] 

— >   aos  PRIMARY 

— >   not  PRIMARY 

(3.5.7)  (parser?) 

FLOATING_0R_FIXED_POINT_CONSTRAINT  — >   SIMPLE.EXPRESSION  [  range  RANGES  ?] 

(6.^)  (parser<+) 

FORMAL_PARAMETER  — >   identifier  => 

(6.1)  ( parsers ) 

FORMAL_PART  ~>   ( PARAMETER_SPECIFICATION  [  j  PARAMETER_SPECIFICATI0n]   ) 

(6.1)  (parserl) 

FUNCTION_BODY   -->   is  [  FUNCTION_BODY_TAIL  ?] 
—  >   J 


(6.1)  (parserl) 
FUNCTION_BODY_TAIL 


— >  separate  } 

—  >  <>  J 

— >  SUBPROGRAM_BODY 

— >  NAME  i 


(6.1)  (parserl) 
FUNCTION  UNIT  — > 


DESIGNATOR   FUNCTION  UNITTAIL 


(6.1)  (parserl) 

FUNCTION_UNIT_TAIL    — >   is  new  NAME  [  GENERIC_ACTUAL_PART  ?]  i 

—>     [    FORMAL_PART  ?]    return  NAME   FUNCTION_BODY 

(12.1)  (parser2) 

GENERIC_ACTUAL_PART  ~>   ( GENERIC_ASSOCIATION  [  ,  GENERIC. ASSOCIATION]  ) 

(12.1)  (parsers) 

GENERIC_ASSOCIATION  ~>  [  GENERIC_FORMAL_PARAMETER  ?]   EXPRESSION 

(12.1)  (parserl) 

GENERIC_DECLARATION  —>  [  GENERIC_PARAMETER_DECLARATION  ?]   GENERIC_FORMAL_PART 
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(12.1)  (parsers) 
GENERIC  FORMAL  PARAMETER 


— >   identifier  => 

— >  string_literal  => 


(12.1)  (parserl) 
GENERIC_FORMAL_PART   --> 

—  > 

—  > 


procedure  PROCEDURE_UNIT 
■function  FUNCTION_UNIT 
package  PACKAGE_DECLARATION 


(12.1)  (parserl) 
GENERIC_PARAMETER_DECLARATION 


IDENTIFIER.LIST  :  [  MODE  ?]  NAME  f  :=  EXPRESSION  ?]  i 
type  private  [  DISCRIMINANT_PART  7]      is 

PRIVATE_TYPE  DECLARATION  j 
type  private  [   DISCRIMINANT_PART  ?]   is 

GENERIC_TYPE_DEFINITION  •, 
with  procedure  PROCEDURE.UNIT 
with  function  FUNCTION_UNIT 


(12.1)  (parser2) 
GENERIC  TYPE_DEFINITION 


■->  (  <>  ) 

-->  range  <> 

■->  digits  <> 

— >  delta  <> 

— >  array  ARRAY_TYPE_DEFINITION 

■->  access  SUBTYPE  DEFINITION 


(5.9)  (parsers) 
GOTO  STATEMENT  — > 


NAME  > 


(3.2)  (parser2) 
IDENTIFIER  DECLARATION  — > 


IDENTIFIER  LIST  :  IDENTIFIER_DECLARATION_TAIL 


(3.2)  (parser2) 

IDENTIFIER  DECLARATION  TAIL 


-->  exception  EXCEPTION_TAIL 

-->  constant  CONSTANT_TERM 

—>  array  CONSTRAINED  ARRAY_DEFINITION 

[  :=  EXPRESSION  ?J~  > 
~>  NAME   IDENTIFIER_TAIL 


(3.2)  (parser2)  ^ 

IDENTIFIER_LIST  ~>   identifier  [  ,  identifier] 


(3.2)  (parser2) 
IDENTIFIER  TAIL 


:>[ 


CONSTRAINT 
renames  NAME 


H 


EXPRESSION  ?]   > 


(5.3)  (parserl) 

IF_STATEMENT  -->  EXPRESSION  then  SEQUENCE_OF_STATEMENTS 

[  els  if  EXPRESSION  then  SEQUENCE_OF_STATEMENTS]  [  else 
SEQUENCE_OF_STATEMENTS  ?]  end  if  j 


(3.6)  (parser3) 
INDEX  CONSTRAINT 


->  DISCRETE_RANGE  [  ,  DISCRETE_RANGE]*  ) 


(3.5.<V)  (parser3) 
INTEGERTYPE  DEFINITION 


->  range  RANGES 


(5.5)  (parser3) 
ITERATION  SCHEME 


— > 
— > 


while  EXPRESSION 

for  LOOP  PARAMETER_SPECIFICATION 


(5.1)  (parser2) 

LABEL  -->  «  identifier  » 


(3.9)    (parserl) 

LATER_DECLARATIVE_ITEM      ~> 

—  > 
— > 


PROPER_BODY 

generic  GENERIC_DECLARATION 

use  WITH  OR  USE  CLAUSE 
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(4.1)    (parsers) 
LEFT_PAREN_NAME_TAIL 


[    FORMAL_PARAMETER  ?]      EXPRESSION  [    ..EXPRESSION 
[    ,    [    FORMAjp_PARAMETER  ?]    [    ,    EXPRESSION  [ 


name.tail] 

DISCRETE_RANGE  )  [   NAME_TAIL] 


?] 
EXPRESSION  ?]]■ 


a 


(10.1)  (parserO) 
LIBRARY_UNIT    — > 
--> 

—  > 

—  > 


procedure  PROCEDURE_UNIT 
function  FUNCTION_UNIT 
package  PACKAGE.DECLARATION 
generic  GENERIC_DECLARATION 


(10.1)  (parserO) 
LIBRARY  UNIT  300Y 


— >  procedure  PROCEDURE_UNIT 

-->  -function  FUNCTION_UNIT 

~>  package  PACKAGE_DECLARATION 

~>  generic  GENERIC_DECLARATION 


(5.5)  (parsers) 

LOOP_PARAMETER  SPECIFICATION  ~> 


identifier  in  [  reverse  ?]  DISCRETE_RANGE 


(5.5)  (parserl) 

LOOP_STATEMENT  —>  [  identifier  :  ?]  [  ITERATION_SCHEME  ?]   loop 

SEQUENCE_OF_STATEMENTS  end  loop  [  identifier  ?]  i 


(6.1)  (parsers) 
MODE   — >  [  in  ?] 

— >   in  out 

—  >  out 

(4.5)  ( parser^  ) 

MULTIPLYING_OPERATOR  ~>  * 

~>  / 

—  >  mod 

— >  rem 


(4.1)  (parsers) 

NAME   — >   identifier  [  NAME_TAIL  ?] 

— >  charaoter_literal  [  NAME_TAIL  ?] 
— >  string_literal  [  NAME_TAIL  ?] 


(4.1)  (parsers) 
NAME_TAIL   — > 

—  > 

—  > 

—  > 

(7.1)  (parserl) 
PACKAGE  BODY  — > 


( LEFT_PAREN_NAME_TAIL 
.SELECTOR  [  NAME_TAIL] 
•AGGREGATE  [  NAME_TAIl1 

■attribute_designator  {  name_tail] 


identifier  is  PACKAGE  BODY  TAIL 


(7.1)  (parserl) 
PACKAGE  BODY  TAIL  --> 


(7.1)  (parserl) 

packagetail  end 


separate  ( 
>  r  DECLARATIVE_PART  ?]  [  begin  SEQUENCE  OF_STATEMENTS 

[  exception  [  EXCEPTION.HANDLERJ*  ?]  ?]"  end  [  identifier  ?] 


new  NAME  [  GENERIC_ACTUAL^PART  ?] 

priva 
J  end  [  identifier  ?] 


•^1  

->     r   BASIC.DE'cLARATIVE.ITEMirr   private 
[  BASIC_DECLARATIVE_ITEMj     ? 


(7.1)    (parserl) 

package_declaration 


— >  body  PACKAGE_B0DY 

-->   identifier  PACKAGE  UNIT 


(7.1)    (parserl) 
PACKAGE_UNIT        ~> 
— > 


is  PACKAGE_TAIL_END 
renames  NAME  J 
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(6.1)  (parserZ) 
PARAMETER  SPECIFICATION 


->  IDENTIFIER_LIST  :  MODE   NAME  [  :=  EXPRESSION  ?] 


(4.<t)  ( parser^ ) 

PRIMARY   — >  numeric_li-teral 

— >  null 

-->  s'tring_  literal 

— >  new  ALLOCATOR 

~>  NAME 

-->  AGGREGATE 


(7.'+)    !parser2) 

PRIVATE_TYPE_3ECLARATI0N    — >     [    limi-ted  ?]      private 


!6.i;  'aarserl) 

PROC£DURE_UNIT  — >   identirier  [  rORMAL.^ART  ?] 
~>   identifier  \     ."ORMAL.fART  ?! 


identifier  !  FCRMAL_?ART 


91 


is  SUBPROGRAM  BODY 


renames  NAME  ) 


(3.9)  (parserl) 

PROPER.BODY  --> 

--> 


procedure  PROCEDURE_UNIT 
function  -UNCTION_UNIT 
pacKage  PACKAGc_:ECLARATION 
task  TASKOECLARATION 


(3.5)  (parsers) 

RANGES  —>  3IMPLE_5XPR£SSI0N  r  .  .3IMPLE_EXPRESSI0N  ?] 


11. 


I  parsers ) 


OT 


RAISE_3TATEMENT  ~>  j_  NAME  .''j 

(13.'+)  (parserZ) 
RECORD.REPRESENTATIONCLAUSE 


■>  [  at  mod  SIMPLE_cXPRESSION  ?] 

[  NAME  at  SIMPLE_EXPRESSION  range  RANGES]' 
end  record  i 


(3.7)  (parser2) 
RECORD_TYPE_DE  FINITION 


->  COMPONENT  LIST  end  record 


(4.^)  (parsers) 

RELATION  -->  SIMPLE_EXPRESSION  [  SIMPLE_EXPRESSION_TAIL  ?] 


(4.<i  )  (  parsers  ) 
RELATION  TAIL   - 


and  [  then  ?]  RELATIOnI 
or  [  else  ?]  J^ELATIOn] 
->  [  xor  relation] 


(•^.5)  (parser^) 

relational  operator 


—  > 

—  > 

—  > 

—  > 

—  > 

—  > 


(13.1)  (parserZ) 
REPRESENTATION  CLAUSE 


(5.8)  (parsers) 
RETURN  STATEMENT  — > 


— >   for  NAME  use  record  RECORD_REPRESENTATION_CLAUSE 
-->   for  NAME  use  [  at  ?]  SIMPLE_EXPRESSION  \ 


[   EXPRESSION  ?] 


(10.1)  (parserO) 
SECONDARY_UNIT  -->   LIBRARY. 
-->  SUBUNIT 


UNIT  BODY 
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(9.7.1)  (parserl) 
SELECT_ALTERNATIVE 


--> 


when  EXPRESSION  =>  ?]  accept  ACCEPT_STATEMENT 

SEQUENCE_OF_STATEMENTS  ?] 

when  EXPRESSION  =>  ?]  delay  DELAY_STATEMENT 

sequence_of_statement: 

when  EXPRESSION  =>  ?] 


terminate  i 


(9,7.1)  (parserl) 

SELECT_ENTRY_CALL  -->  else  SEQUENCE_OF_STATEMENTS 

— >  or  delay  OELAY_STATEMENT  [  SEQUENCE_OF_STATEMENTS  ?] 


(9.7)  (parserl) 
SELECT_3TATEMENT  — 


>   3El,ECT_3TATEMENT_TAIL   ScLECT_ZNTRY_:ALL   and  select  > 


(9.7.1)  (parserl) 
SELECT  STATEMENT  ^AIL 


(<+.1.3)  (parser'*) 


—  >   SELECT.ALTERNATIVE  f  or  SELECT_ALTERNATIVE]"* 

—  >  NAME  i   I   SEQUENCE_JF_STATEMENTS  ?] 


SELECTOR 


•>   identiTier 

•>  character_literal 

•>  string_literal 


all 


(5.1)  (parserl) 

S£QUENCE_0F_3TATE.MENTS  —  >  [  STATEMENT]'' 


{^.^)    1  parsers ) 
SIMPLE.EXPRESSION  — 


—  >  r  +  ?]  TERM  r  3INARY_A0DING,OPERATOR 

—  >  [  -  ?]   TERM  [  3INARY_ADDING_0PERAT0R 


TERM]* 

term] 


I'+.^l    {  parsers  ) 
SIMPLE  cXPRESSION  TAIL 


RELATIONAL  OPERATOR   SIMPLE  EXPRESSION 


not 
not 


in  RANGES 
in  NAME 


(5.1)  ( parsers ) 
SIMPLE_STATEMENT 


-->  null  \ 

— >  ASSIGNMENT_STATEMENT 

-->  PROCEDURE_CALL_STATEMENT 

-->  exit  EXIT_STATEMENT 

■->  return  RETURN.STATEMENT 

■->  goto  GOTO_STATEMENT 

-->  delay  OELAY_STATEMENT 

-->  abort  ABORT.STATEMENT 

-->  raise  RAISE_STATEMENT 

■->  ENTRY_CALL_STATEMENT 

-->  CODE  STATEMENT 


(5.1)  (parserl) 
STATEMENT 


>  [  LABEL  ?] 

>  [  LABEL  ?J 


SIMPLE_STATEMENT 
COMPOUND  STATEMENT 


(6.3)  (parserl) 
SUBPROGRAM  BODY 


—  > 
— > 
— > 
— > 


new  NAME  [  6ENERIC_ACTUAL_PART  ?]   > 
separate  i 
<>  i 

[DECLARATIVE_PART  ?]  begin  SEQUENCE_OF_STATEMENTS 
exception  [  EXCEPTI0N_HANDLER]*  ?] 
end  [  DESIGNATOR  ?]   j 
NAME  i 


(3.3.2)  (parsers) 
SUBTYPE_DECLARATI0N  — > 


identifier  is  SUBTYPE_INDICATI0N  > 


(3.3.2)  (parser3) 

SUBTYPE_INDICATI0N  ~>  NAME  [  CONSTRAINT  ?] 
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(10.2)  (parserO) 
SUBUNIT  -->  separate 


(NAME)  PROPER_BODY 


(9.1)  (parserl) 

TASK  BODY  -->   identifier  is  TASK_BODY_TAIL 


(9.1)  (parserl) 
TASK  BODYTAIL  - 


separate 

fDECLARATIVE_PART  ?]      begin  SEQUENCE_OF_STATEMENTS 
exception  [   EXCEPTION.HANDLER]      ?] 
end  [    identifier  ?J 


(9.1)    (parserl) 

task_declaration  — > 

—  > 


body  TASK.BODY  > 


[  type  ?]   identifier  F  is  [  ENTRY_DECLARATIONJ 

_clauseP 


[  REPRESENTATION, 


end  [  identifier  ?j  ?J  > 


(<4.4)  ( parsers  ) 

TERM  — >   FACTOR  [  MULTIPLYING_OPERATOR   FACTOR] 


(3.3.1)  (parser2) 
TYPE  DECLARATION   --> 


identifier  [  DISCRIMINANT_PART  ?] 
[  is  PRIVATE  TYPE_DEFINITION  ?]   » 

identifier  f DISCRIMINANT_PART  ?] 
[  is  TYPE_DEFINITION  ?]   > 


(3.3.1)  (parserZ) 
TYPE_DEFINITION 


-->  ENUMERATION_TYPE_DEFINITION 

~>  INTEGER_TYPE_DEFINITION 

~>  digits  FLOATING_OR_FIXED_POINT_CONSTRAINT 

~>  delta  FL0ATING_0R_FIXED_POINT_CONSTRAINT 

— >  array  ARRAY_TYPE_DEFINITION 

-->  record  RECORD_TYPE_DEFINITION 

-->  access  SUBTYPE_DEFINITION 

-->  new  SUBTYPE  INDICATION 


(3.7.3)  (parser2) 

VARIANT  — >  when  CHOICE  [  I  CHOICE] 


COMPONENT_LIST 


(3.7.3)  (parser2)  ^ 

VARIANT_PART  — >  case  identifier  is  [  VARIANT]  end  case  j 

(10.1.1)    (parser2) 

WITH_OR_USE_CLAUSE    -->      identifier  [    ,  identifier]      i 
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APPENDIX  B 
'ADAMEASURE'  USERS  GUIDE 

1.  Once  you  have  logged  on  a  VTIOO  terminal,  type  RUN  DEMON  to  begin  execution 
of 'AdaMeasure'.   The  initial  screen  gives  the  general  information  about  the  program. 

******* *******^*****9H*********************T********i«f  ******  ********** 

*  * 

*  WELCOME  TO  'AdaMEASURE'  * 

*  * 

*  AUTHORED  BY:  LCOR  JEFFREY  L.  NIEDER,  USN  * 

*  LT    KARL  S.  FAIRBANKS   ,  USN  » 

*  * 

*  NAVAL  POSTGRADUATE  SCHOOL  » 

*  DEPARTMENT  OF  COMPUTER  SCIENCE  * 

*  MONTEREY,  CALIFORNIA  » 
«  * 

*  31  OCTOBER  1986  * 

*  * 
«                           VERSION  1.0  » 

*  * 

*  This  program  provides  an  automa-ted   software  meiric   "tool  which  * 

*  uses  quantitative  measures  in  an  effort  to  supply  the  user   with  * 
■*  helpful  information  about  the  static  structure  of   a  given  input  * 

*  program.   This  program  is  public  domain  information.  * 

*  * 

Enter  any  letter  to  continue  

2.  Enter  any  letter  to  continue.  This  is  required  because  Ada  filters  out  carriage 
returns  so  just  hitting  ENTER  will  not  cause  execution  to  continue.  The  next  screen 
shown  is  the  MAIN  SELECTION  MENU.  From  here  the  user  enters  the  digits  1,  2 
or  3  to  either  parse  a  file,  view  previously  gathered  data,  or  quit  to  the  operating 
system,  respectively. 

**************************************X  X  K  X  X  X********************************* 

*  « 

*  MAIN  SELECTION  MENU  * 

*  * 

*  HERE  ARE  THE  ACTION  CHOICES  AVAILABLE  TO  YOU  » 

*  » 

*  Simply  enter  the  number  of  your  choice  * 

*  » 

*  1  -  PARSE  AN  INPUT  FILE  » 

*  « 

*  2  -  VIEW  PREVIOUSLY  GATHERED  DATA  » 

*  » 

*  3  -  EXIT  TO  OPERATING  SYSTEM  » 

*  « 
***************************************************************************** 
Choice  = 

3.  If  the  user  selects  number  one  then  he  will  be  prompted  for  the  file  name  of  the  file 
he  wishes  to  have  parsed.  While  parsing  of  the  file  is  in  progress,  the  user  will  see  a 
message  on  the  screen  indicating  at  what  line  number,  in  the  input  file,  the  parser  has 
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reached.  When  parsing  of  the  input  file  commences,  'AdaMeasure'  creates  four  new 
files.  The  four  files  have  the  same  name  as  the  user's  input  file  with  the  following 
extensions:  fn.DATA,  fn.HALS,  fn.R^AND,  fn.MISC.  The  meaning  of  each  of  these 
new  files  will  be  explained  later  in  this  user's  guide. 

4.  Upon  conclusion  of  parsing  the  input  file,  or  if  the  user  selects  number  two  from 
the  MAIN  SELECTION  MENU,  the  program  displays  the  METRIC  SELECTION 
PROGR.AM.  From  this  menu,  the  user  can  select  any  of  the  listed  metrics,  exit  to  the 
MAIN  SELECTION  MENU,  or  exit  to  the  operating  system. 

*  3* 

*  METRIC  SELECTION  ME^nJ  * 

*  HERE  ARE  THE  INFORMATION  CHOICES  AVAILABLE  TO  YOU  * 

*  * 

*  Simply  enter  the  number  of  your  choics  * 

*  1  -  'MALSTEAD'  METRIC  INFORMATION  * 

*  * 

*  2  -  COMMENT  AND  NESTING  METRIC  INFORMATION  * 

9«  -ft 

*  3  -  'HENRY  and  KAFURA"  METRIC  INFORMATION  * 
9(  * 

*  ^    -    EXIT  TO  f1AIN  MENU  * 

*  * 

*  5  -  EXIT  TO  OPERATING  SYSTEM  » 

Choice  = 

5.  If  number  one  is  selected,  the  Halstead  Metric  choice,  the  next  menu  displayed  is 
the  HALSTEAD  SELECTION  MENU.  From  this  menu,  the  calculations  and 
conclusions  of  the  Halstead  Metric  can  be  selected.  There  also  exists  the  options  of 
exiting  to  the  METRIC  SELECTION  MENU,  or  exiting  to  the  operating  system. 


w 

* 

x 

HALSTEAD  SELECTION  MENU                          * 

9t 

X 

* 

K 

*                            HERE 

ARE  THE  HALSTEAD  METRIC  OPTIONS  AVAILABLE  TO  YOU           * 

* 

M 

* 

Simply  enter  the  number  of  your  choice                    * 

* 

a 

*                                1 

-   HALSTEAD  OPERATORS                                       * 

» 

a 

*             2 

-   HALSTEAD  OPERANDS                                        * 

a 

a 

*             3 

-   HALSTEAD  METRIC  CONCLUSIONS                               * 

w 

a 

*            ^ 

-   EXIT  TO  METRIC  SELECTION  MENU                             * 

a 

M 

*                               5 

-  EXIT  TO  OPERATING  SYSTEM                                  * 

it 

* 

***9(***9f*i*9*^**^»9**^*9t*^^**i(**^J(******9f*^f***9f***3t*^f***JHf***?(***«*^«^*3********** 

Choice  = 
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6.  From  the  HALSTEAD  SELECTION  MENU,  if  number  one  is  selected,  the 
Halstead  operator  data  is  displayed.  The  operator  data  is  stored  in  the  fn.DATA  file. 
The  Halstead  operator  data  includes  the  total  number  of  different  operators  used,  the 
total  number  of  occurences  of  those  operators,  and  the  number  of  occurences  of  each 
individual  operator. 

7.  If  number  two  from  the  HALSTEAD  SELECTION  MENU  is  chosen,  the 
HALSTEAD  OPERAND  SELECTION  MENU  is  displayed.  From  this  menu  the 
diiTerent  classes  of  operands  and  their  data  can  be  selected  for  viewmg.  Also  available 
for  selection  are  exiting  to  the  HALSTEAD  SELECTION  MENU,  and  exiting  to  the 
operating  system. 

3v9V  3t  w  W9f  7?  K  K  w  T^  9r  w  X  XX  X  X  X  X  TK  T^  ivHt^  t^tW^t^  7?  7T  TTTT  7t  TV  i^TV  XX  X  X  X  tttT  X  X  X  X  X  X  X  X  X  X  X  7t  tt  XXX  tk  XXXXXX'XX  it  ttt^  5t  ^  XXX 

n  * 

*  HALSTEAD  OPERAND  SELECTION  MENU  * 

*  * 

»  HERE  IS  THE  OPERAND  OATA  AVAILABLE  ^ 

*  Simply  enier  the  number  of  your  choice  * 

*  J* 

*  1  -  PROCEDURE,  FUNCTION,  PACKAGE  INFORMATION  * 
»  n 

*  2  -  VARIABLES  AND  CONSTANTS  INFORMATION  * 

a  3  -  TASKS  AND  BLOCKS  INFORMATION  » 

*  * 

*  <*   ~   EXIT  TO  HALSTEAD  SELECTION  MENU  * 

*  5  -  EXIT  TO  OPERATING  SYSTEM  * 

*  9*  - 

Choice  = 

8.  From  the  HALSTEAD  OPER^^ND  SELECTION  MENU,  selection  of  any  of  the 
operand  calasses  will  show  each  identifier  and  number  of  occurences  of  for  that 
particular  class.   The  data  for  all  operand  classes  is  stored  in  the  fn.RAND  file. 

9.  Back  to  the  HALSTEAD  SELECTION  MENU.  If  the  selection  is  number  three, 
the  Halstead  Metric  conclusions  are  displayed.  The  conclusions  include  the  input  file's 
calculated  theoritical  length,  its  actual  length,  the  difference  between  the  two  lengths, 
and  some  comments  about  that  difference.  The  Halstead  Metric  conclusion  data  is 
stored  in  the  fn.HALS  file. 

10.  Back  to  the  METRIC  SELECTION  MENU.  If  the  selection  number  is  two,  the 
comment  and  nesting  metric  information  is  displayed  on  the  screen.  The  comment 
metric  information  includes  the  total  number  of  lines  in  the  input  file,  the  total  number 
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of  comment  lines,  a  percentage  of  lines  of  conunents  to  lines  of  code,  and  some 
observations  about  that  percentage.  The  nesting  metric  information  contains  the  type 
and  total  occurences  of  nesting  contructs  used  in  the  input  file,  the  deepest  level  of 
nesting  parsed,  and  how  many  times  each  nesting  level,  up  to  the  deepest,  was 
encountered.  The  comment  and  nesting  metric  information  is  stored  in  the  fn.MISC 
file. 

11.  The  final  choice  in  the  METRIC  SELECTION  MENU  is  the  Henr\'  and  Kafura 
Complexity  Flow  Metric.  At  present,  this  metric  is  not  implemented.  Ongoing 
development  of  'Ada Measure'  includes  plans  to  implement  this  metric  as  well  as  other 
metrics  and  Ada  tools. 
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APPENDIX  C 
'ADAMEASURE'  PROGRAM  LISTING  -  PART  1 


TITLE: 

MODULE  NAME: 
DATE  CREATED: 
LAST  MODIFIED; 

AUTHORS: 


AN  ADA  SOFTHARE  METRIC 

PACKAGE  BYPASS.FUNCTION 
25  JUL  86 
05  DEC  3(3 

LCDR  JEFFREY  L.  NIEDER 
LT  KARL  S.  FAIRBANKS,  JR. 


—  DESCRIPTION:   This  package  corrtains  ihe  workhorse  function 
required  io  identify  each  individual  token. 

— *********^(*********5f******i********9*******^«*^*******  *************  — 

with  HALSTEAD_METRIC,  3YPASS_SUPP0RT_FUNCTI0NS,  GLOBAL,  GLOBAL_PARSER j 
use  HALSTEAO_METRIC,  BYPASS_SUPPORT_FUNCTIONS,  GLOBAL,  GLOBAL_?ARSER> 

package  BYPASS.FUNCTION  is 

function  BYPASS(TOKEN_ARRAY_ENTRY_CODE  :  integer)  return  boolean > 
procedure  CONDUCT_RESERVE_t^ORD_TEST( CONSUME  :  in  out  boolean)} 

end  BYPASS_FUNCTION-, 


package  body  BYPASS_FUNCTION  is 

—  this  function  compares  the  lexeme  of  the  current  token  with  the 

token  currently  being  sought  by  the  parser.   If  the  current  token 
type  is  identifier,  then  a  test  is  conducted  to  ensure  it  is  not 
a  reserved  word, 
function  BYPASS(TOKEN_ARRAY_ENTRY_CODE  :  integer)  return  boolean  is 

CONSUME        :  boolean  :=  FALSE; 

LEXEME         :  stringd.  .  LINESIZE  )> 

SIZE  :  natural; 

begin 

GET_CURRENT_TOKEN_RECORD ( CURRENT_TOKEN_RECORD ,  LEXEME_LENGTH ) J 

LEXEME  :=  CURRENT_TOKEN_RECORD . LEXEME j 

SIZE  :=  CURRENT_TOKEN_RECORD.LEXEME_SIZE  -  1) 

case  TOKEN_ARRAY_ENTRY_CODE  is 
when  TOKEN_IDENTIFIER  => 

if  (CURRENT_TOKEN_RECORD.TOKEN_TYPE  =  IDENTIFIER)  then 

CONSUME  :=  TRUE) 

CONDUCT_RESERVE_HORD_TEST( CONSUME )> 
end  i  f  > 
if  (CONSUME)  then 

CONVERT_UPPER_CASE( LEXEME,  SIZE); 

OPERAND_METRIC(HEAD_NODE,  CURRENT_TOKEN_RECORD,  DECLARE_TYPE  )> 

DECLARE_TYPE  :=  VARIABLE_DECLARE) 
end  if) 

when  TOKEN_NUMERIC_LITERAL  => 

if  (CURRENT_TOKEN_RECORD.TOKEN_TYPE  =  NUMERIC_LIT)  then 
CONSUME  :=  TRUE) 

DECLARE_TYPE  :=  CONST ANT_DECLARE ) 

OPERAND_METRIC(HEAD_NODE,  CURRENT_TOKEN_RECORD,  DECLARE_TYPE  )) 
DECLARE_TYPE  :=  VARIABLE_DECLARE ) 
end  if) 
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when  TOKEN_CHARACTER_LITERAL  => 

if  (CURRENT_TOKEN_RECORD.TOKEN_TYPE  =  CHARACTER_LIT  )  "then 

CONSUME  :=  TRUE  J 
end  if} 

when  TOKEN_STRING_LITERAL  => 

if  (CURRENT_TOKEN_RECORD.TOKEN_TYP£  =  STRING_LIT )  then 

CONSUME  :=  TRUE v 
end  i  f ; 

when  TOKEN_END  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "end"  i  then 

CONSUME  :=  TRUE i 
end  i  f  •> 

when  TOKEN .BEGIN  => 

if  !ADJUST_LEXEME(  LEXEME,  SIZE)  =  "begin"  1  then 

CONSUME  :=  TRUE i 
end  ifv 

when  TOKEN_IF  => 

if  ( AD JUST_LEXEME( LEXEME,  SIZE)  =  "if")  then 

CONSUME  :=  TRUE) 
end  i  f ; 

when  TOKEN_THEN  -> 

if  (ADJUST_L£XEME( LEXEME,  SIZE)  =  "then")  then 

CONSUME  :=  TRUE) 
and  1 f  I 

when  T0KEN_5LSIF  => 

if  iADJUST_l.EXEME(  LEXEME,  SIZE)  =  "aisif")  then 

CONSUME  :=  TRUE  J 
end  i  f  J 

when  TOKEN_ELSE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "else")  then 

CONSUME  :=  TRUE  V 
end  i  f  i 

when  TOKEN_WHILE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "while")  then 

CONSUME  :=  TRUE > 
end  i  f  i 

when  TOKEN_LOOP  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "loop")  then 

CONSUME  :=  TRUE > 
end  i  f } 

when  TOKEN_CASE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "case")  then 

CONSUME  :=  TRUE > 
end  iii 

when  TOKEN_WHEN  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "when")  then 

CONSUME  :=  TRUE j 
end  i  f  i 

when  TOKEN_DECLARE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "declare")  then 

CONSUME  :=  TRUEv 
end  i  f \ 

when  TOKEN_FOR  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "for")  then 
CONSUME  :=  TRUE > 
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end  i  f  > 

when  TOKEN.OTHERS  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "others")  then 

CONSUME  :=  TRUE > 
end  i  i > 

when  TOKEN_RETURN  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "return")  then 

CONSUME  :=  TRUE  J 
en3  i  f  > 

when  T0KEN_5XIT  => 

if  'ADJUST_!.EXEME(  LEXEME,  SIZE)  =  "3xit">  then 

CONSUME  :=  TRUE i 
end  i  f  •, 

when  TOKEN_PROCEDURE  => 

if  I ADJUST_LEXEME( LEXEME,  SIZE)  =  "procedure")  then 

CONSUME  :=  TRUE > 
end  i  f  > 

when  TOKEN_FUNCTION  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "function")  then 

CONSUME  :=  TRUEi 
and  i  f  v 

when  TOKEN_WITH  => 

if  (ADJUST_L=XEME( LEXEME,  SIZE)  =  "with")  then 

CONSUME  :=  TRUEi 
end  i  f  V 

when  TOKEN_USE  => 

if  (ADJUST.LEXEME I  LEXEME,  SIZE)  =  "use")  then 

CONSUME  :=  TRUE) 
end  i  f  j 

when  TOKEN_PACKAGE  => 

if  {ADJUST_LEXEME( LEXEME,  SIZE)  =  "package")  then 

CONSUME  :=  TRUE> 
end  i  f ) 

when  TOKEN_BODY  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "body")  then 

CONSUME  :=  TRUE > 
end  i  f ; 

when  TOKEN.RANGE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "range")  then 

CONSUME  :=  TRUE > 
end  i  f  i 

when  TOKEN_IN  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "in")  then 

CONSUME  :=  TRUE j 
end  ifi 

when  TOKEN_OUT  => 

if  (ADJUST.LEXEMEl LEXEME,  SIZE)  =  "out")  then 

CONSUME  :=  TRUE) 
end  i  f  i 

when  TOKEN.SUBTYPE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "subtype")  then 

CONSUME  :=  TRUE) 
end  i  f  > 

when  TOKEN_TYPE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "type")  then 
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CONSUME  :=  TRUE > 
end  i  f ) 

when  TOKEN_IS  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "is")  then 

CONSUME  :=  TRUE > 
end  i  f  > 

when  TOKEN_NULL  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "null")  then 

CONSUME  :=  TRUE  J 
end  i  f  i 

when  TOKEN_ACCESS  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "access")  then 

CONSUME  :=  TRUE} 
end  i  f } 

when  TOKEN_ARRAY  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "array")  then 

CONSUME  :=  TRUE  5 
end  i  f  j 

when  TOKEN_DIGITS  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "digits")  then 

CONSUME  :=  TRUE v 
end  i  f ; 

when  TOKEN_0ELTA  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "delta")  then 

CONSUME  :=  TRUE; 
end  i  f  > 

when  TOKEN_RECORD_STRUCTURE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "record")  then 

CONSUME  :=  TRUE} 
end  if) 

when  TOKEN_CONSTANT  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "constant")  then 

CONSUME  :=  TRUE} 
end  if} 

when  TOKEN_NEH  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "new")  then 

CONSUME  :=  TRUE} 
end  i  f } 

when  TOKEN_EXCEPTION  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "exception")  then 

CONSUME  :=  TRUE} 
end  i  f } 

when  TOKEN_RENAMES  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "renames")  then 

CONSUME  :=  TRUE} 
end  if} 

when  TOKEN_PRIVATE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "private")  then 

CONSUME  :=  TRUE} 
end  i  f } 

when  TOKEN_LIMITED  => 

if  I ADJUST_LEXEME( LEXEME,  SIZE)  =  "limited")  then 

CONSUME  :=  TRUE} 
end  i  f } 

when  TOKEN.TASK  => 
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if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "task")  then 

CONSUME  :=  TRUEj 
end  i  f  i 

when  TOKEN.ENTRY  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "entry")  then 

CONSUME  :=  TRUE  V 
end  if} 

when  TOKEN_ACCEPT  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "accept")  then 

CONSUME  :=  TRUE > 
end  i  f  > 

when  TOKEN.OELAY  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "delay")  then 

CONSUME  :=  TRUE i 
end  i  f \ 

when  TOKEN_SELECT  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "select")  then 

CONSUME  :=  TRUEj 
end  i  f  i 

when  TOKEN_TERMINATE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "terminate")  then 

CONSUME  :=  TRUE) 
end  i  f  i 

when  TOKEN. ABORT  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "abort")  then 

CONSUME  :=  TRUE> 
end  i  f  i 

when  TOKEN_SEPARATE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "separate")  then 

CONSUME  :=  TRUEi 
end  i  f  i 

when  TOKEN_RAISE  => 

if  (ADJUST.LEXEMEI LEXEME,  SIZE)  =  "raise")  then 

CONSUME  :=  TRUE j 
end  i  f ( 

when  TOKEN_GENERIC  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "generic")  then 

CONSUME  :=  TRUEv 
end  ifv 

when  TOKEN. AT  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "at")  then 

CONSUME  :=  TRUE  J 
end  i  f ( 

when  TOKEN.RE VERSE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "reverse")  then 

CONSUME  :=  TRUE > 
end  if  J 

when  TOKEN_00  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "do")  then 

CONSUME  :=  TRUE j 
end  i  f  > 

when  TOKEN.GOTO  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "goto")  then 

CONSUME  :=  TRUE > 
end  Hi 
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when  TOKEN_OF  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "of")  then 

CONSUME  :=  TRUE j 
end  i  f  J 

when  TOKEN_ALL  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "all")  then 

CONSUME  :=  TRUE i 
end  i  t  •, 

when  TOKEN_PRAGMA  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "pragma")  then 

CONSUME  :=  TRUE > 
end  ifi 

when  TOKEN_ANO  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "and" ^  rhen 

CONSUME  :-  TRUE > 
and  i  f \ 
OPERATOR_METRICl TOKEN_AND ,  CONSUME ,  RESERVE_HORD_TEST ) i 

when  T0KEN_OR  => 

if  I ADJUST_LEXEME(LEXEME,  SIZE)  =  "or")  then 

CONSUME  :=  TRUE > 
and  i  f  i 
aPERATOR_METRIC(TOKEN_OR,  CONSUME,  SESERVE_W0RD_TE3T  )  > 

when  TOKEN_M0T  => 

if  I ADJUST_LHXEME1 LEXEME,  SIZE)  =  "not")  then 

CONSUME  :=  TRUE; 
end  1  f  •, 
QPERATOR_METRIC!TOKEN_NOT,  CONSUME,  RESERVE_WORD_rEST  ) ; 

when  TOKEN_XOR  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE!  =  "xor"  !  then 

CONSUME  :-    TRUE i 
end  i  f  > 
OPERATOR_METRIC(TOKEN_X0R,  CONSUME,  RESERVE_HOR0_TEST  )  V 

when  TOKEN.MOD  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "mod")  then 

CONSUME  :=  TRUE > 
end  i  f  i 
OPERATOR_METRIC(TOKEN_MOD,  CONSUME,  RESERVE_WORD_TEST  )  j 

when  TOKEN_REM  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "rem")  then 

CONSUME  :=  TRUE  V 
end  i  f  i 
OPERATOR_METRIC(TOKEN_REM,  CONSUME,  RESERVE_WORD_TEST  )  > 

when  TOKEN_ABSOLUTE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "abs" )  then 

CONSUME  :=  TRUE  J 
end  i  f } 
OPERATOR_METRIC(TOKEN_ABSOLUTE,  CONSUME,  RESERVE_HORD_TEST ) > 

when  TOKEN_ASTERISK  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "*" )  then 

CONSUME  :=  TRUE > 
end  i  f  i 
OPERATOR_METRIC(TOKEN_ASTERISK,  CONSUME,  RESERVE_WORD_TEST  )  > 

when  TOKEN_SLASH  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "/" )  then 

CONSUME  :=  TRUEj 
end  i  f  > 
OPERATOR_METRIC(TOKEN_SLASH,  CONSUME,  RESERVE_WORD_TEST  )  j 
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when  TOKEN_EXPONENT  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "»*" )  then 

CONSUME  :=  TRUE > 
end  Hi 
OPERATOR_METRIC(TOKEN_EXPONENT,  CONSUME,  RESERVE_WORD_TEST U 

when  TOKEN.PLUS  => 

if  (ADJUST_LEXEME(  LEXEME,  SIZE)  =  "  +  " )  "then 

CONSUME  :=  TRUE > 
end  ifi 
OPERATOR_METRIC(TOKEN_PLUS,  CONSUME,  RESERVE_HORD_TEST ) > 

when  TOKEN_MINUS  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "-"  )  then 

CONSUME  :-    TRUE-, 
and  i  f ; 
OPERATOR_METRIC ( TOKEN_MINUS ,  CONSUME  ,  RESERVE  _WORD_TEST ) v 

when  TOKEN_iMPERSAND  => 

if   ADJUST_l2XEME( LEXEME,  SIZE)  =  "S"  )  then 

CONSUME  :=  TRUE v 
end  i  f  i 
OPERATOR_METRIC(TOKEN_AMPERSAND,  CONSUME,  RESERVE_WORO_TEST  )  v 

when  T0KEN_3QUALS  => 

if  !ADjUST_LEXEME( LEXEME,  SIZE)  =  "  =  "  )  then 

CONSUME  :=  TRUE i 
and  i  f  v 
0PERAT0R_METRICIT0KEN_SQUALS,  CONSUME,  RESERVE_WORD_TEST ) v 

when  T0KEN_M0T_£QUAL3  => 

if  1 ADJUST_LEXEME( LEXEME,  SIZE)  =  "/="  )  then 

CONSUME  :=  TRUE; 
end  if} 
OPERATOR_METRIC(TOKEN_NOT_EQUALS,  CONSUME,  RESERVE_WORD_TEST ) » 

when  TOKEN_LESS_THAN  => 

if  (ADJUST_LEXEME{ LEXEME,  SIZE)  =  "<" )  then 

CONSUME  :=  TRUE} 
end  i  f } 
OPERATOR_METRIC(TOKEN_LESS_THAN,  CONSUME,  RESERVE_WORD_TEST ) J 

when  TOKEN_LESS_THAN_EQUALS  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "<  =  " )  then 

CONSUME  : =  TRUE ; 
end  i  f  j 
OPERATOR_METRIC( TOKEN_LESS_THAN_EQUALS,  CONSUME ,  RESERVE_WORD_TEST  )j 

when  TOKEN_GREATER_THAN  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  ">" )  then 

CONSUME  :=  TRUE} 
end  i  f } 
OPERATOR_METRIC(TOKEN_GREATER_THAN,  CONSUME,  RESERVE_WORD_TEST )» 

when  TOKEN_GREATER_THAN_EQUALS  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  ">=" )  then 

CONSUME  :=  TRUE} 
end  i  f } 
OPERATOR_METRIC(TOKEN_GREATER_THAN_EQUALS,  CONSUME,  RESERVE_WORD_TEST  ) } 

when  TOKEN_ASSIGNMENT  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  ":=")  then 

CONSUME  :=  TRUE} 
end  if} 
OPERATOR_METRIC(TOKEN_ASSIGNMENT,  CONSUME,  RESERVE_WORD_TEST)> 

when  TOKEN_COMMA  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  ",")  then 
CONSUME  :=  TRUE} 
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end  i  f ( 

when  TOKEN_SEMICOLON  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  ">")  then 

CONSUME  :=  TRUE} 
end  i  f  5 

when  TOKEN_PERIOD  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  " . " )  then 

CONSUME  :=  TRUE  I 
end  i  f } 

when  TOKEN_LEFT_PAREN  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "(")  then 

CONSUME  :=  TRUE  5 
end  if) 

when  TOKEN_RIGHT_PAREN  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "  )" )  then 

CONSUME  :=  TRUE} 
end  i  f ; 

when  TOKEN_COLON  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  ":")  then 

CONSUME  :=  TRUE i 
end  i  f  > 

when  TOKEN_APOSTROPHE  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  )  then 

CONSUME  :=  TRUE > 
end  i  f  i 

when  TOKEN_RANGE_0OTS  => 

if  I ADJUST_LEXEME( LEXEME,  SIZE)  =  " . . "  )  then 

CONSUME  :=  TRUE) 
end  i  f  > 

when  TOKEN_ARROW  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "  =  >" )  then 

CONSUME  :=  TRUE  J 
end  i  f ) 

when  TOKEN_BAR  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "  ")  then 

CONSUME  :=  TRUE v 
end  ifv 

when  TOKEN_BRACKETS  => 

if  (ADJUST_LEXEME( LEXEME,  SIZE)  =  "<>" )  then 

CONSUME  :=  TRUEj 
end  i  f  > 

when  TOKEN_LEFT_BRACKET  => 

if  (ADJUST_LEXEME(  LEXEME,  SIZE)  =  "«")  then 

CONSUME  :=  TRUE} 
end  if} 

when  TOKEN_RIGHT_BRACKET  => 

if  (ADJUST_LEXEME(  LEXEME,  SIZE)  =  "»" )  then 

CONSUME  :=  TRUE} 
end  i  f } 

when  others  =>  null} 
end  case} 

ADJUST_TOKEN_BUFFER( CONSUME ,  RESERVE_WORD_TEST  ) } 

return  (CONSUME)} 
end  BYPASS} 
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—  this  procedure  tests  all  identifiers  to  verify  they  are  not  reserved 

words.   The  most  common  reserved  words  are  tested  first  and  the  process 
halts  when  a  match  is  made  or  the  test  fails, 
procedure  CONDUCT_RESERVE_WORD_TEST( CONSUME  :  in  out  boolean)  is 
begin 

RESERVE_WORD_TEST  :=  TRUE > 

for  RESERVE_WORD_INDEX  in  TOKEN_END. .TOKEN_ABSOLUTE  loop 
if  (BYPASS(RESERVE_WORD_INDEX))  then 

CONSUME  :=  FALSE) 
end  i  f ; 

exit  when  not  CONSUME) 
end  loop  <, 

RESERVE_WORD_TEST  :=  FALSE) 
end  C0N0UCT_REScRVE_WORD_TEST> 

end  BYPASS.FUNCTIONv 
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—  TITLE:  AN  ADA  SOFTWARE  METRIC 

—  MODULE  NAME:     PACKAGE  BYPASS_SUPPORT_FUNCTIONS 

—  DATE  CREATED:    03  OCT  86 

—  LAST  MODIFIED:   OS  DEC  86 

—  AUTHORS:        LCOR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

DESCRIPTION:   This  package  con-tains  the  procedures  and 
■function  required  to  support  the  function  3YPASS. 

with  SCANNER,  GLOBAL,  GLOBAL .^ARSER ,  TEXT_IO; 
use  SCANNER,  GLOBAL,  GLOBAL_PARSER ,  TEXT^IOi 

package  3YPASS_3UPP0RT_,-UNCTI0NS  is 

package  NEW_:nTEGER_IO  is  new  TEXT_IO. INTEGER_IO( integer  )  > 
use  NEH_INTEGcR_IOv 

procedure  GET_CURRENT_TOKEN_RECORD 

(CURRENT_TOKEN_REC0R0  :  in  out  TOKEN_RECORD_TYPE i 
U£XEME_L£NGTH  :  in  out  integer  I ; 
procedure  TRACEi TRACS_TOKEN  :  in  strings 

CONSUME,  RESERVE_WORD_^EST  :  In  boolean  n 
procedure  iDJUST_-0KEN_3UFFER( CONSUME ,  ^ESERVE_WORD_TEST  :  in  boolean  M 
■function  ADJUST_LEXEMEl  INPUT_'.EXEME  :  strings  SIZE  :  natural!  return  string) 
proceaure  CONVERT__OWER_CASE( INPUT_,EXEME  :  in  out  strings 

LENGTH  :  in  out  integer); 
procedure  CONVERT_UPPER_CASE( INPUT_LcXEME  :  \n    out  string; 


LENGTH  :  in  out  integer ! ; 


end  BYPASS_SUPPORT_FUNCTIONS; 


package  body  BYPASS_SUPPORT_FUNCTIONS  is 

—  this  procedure  handles  the  loading  of  the  token  record  bu^ffer,  flushes 
out  comments  (while  keeping  count  of  them)  and  separators,  and  prints 
out  the  current  line  being  parsed  to  the  screen, 
procedure  GET_CURRENT_TOKEN_RECORD 

( CURRENT_TOKEN_RECORD  :  in  out  TOKEN_RECORD_TYPE ; 
LEXEME_LENGTH  :  in  out  integer)  is 
DISPLAY_DELAY  :  constant  integer  :=  250; 
begin 

if  ( FIRST_TIME_LOAD  )  then 

while  (PLACE_HOLDER_INDEX  /=  TOKEN_ARRAY_SIZE  *    1)  loop 
if  not  (END_OF_FILE(TEST_FILE ))  then 
GET_NEXT_TOKEN( TOKEN_RECORD ) ; 

if  ( <TOKEN_RECORD.TOKEN_TYPE  /=  SEPARATOR)  and 
(TOKEN_RECORD.TOKEN_TYPE  /=  COMMENT))  then 
TOKEN_RECORD_BUFFER(PLACE_HOLDER_INDEX)  :=  TOKEN_RECORD; 
PLACE_HOLDER_INDEX  :=  PLACE_HOLDER_INDEX  *    1) 
elsif  (TOKEN_RECORD.TOKEN_TYPE  =  COMMENT)  then 

COMMENT_COUNT  :=  COMMENT_COUNT  ■^  1; 
end  i  f ; 
else 

TOKEN_RECORD_BUFFER(PLACE_HOLDER_INDEX).TOKEN_TYPE  :=  ILLEGAL; 
TOKEN_RECORD_BUFFER(PLACE_HOLDER_INDEX).LEXEME_SIZE  :=  1; 
PLACE_HOLDER_INDEX  :=  PLACE_HOLDER_INDEX  ■•■  1; 
end  i  f ; 
end  loop; 

FIRST_TIME_LOAD  :=  FALSE) 
FULL  :=  TRUE; 
PLACE_HOLDER_INDEX  :=  1; 
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elsif  ( ( TOKEN_ARRAY_INDEX  =  0)  and  (not  (FULL)))  then 

TOKEN_RECORD_BUFFER( 0  )  : =  TOKEN_RECORD_BUFFER( TOKEN_ARRAY_SIZE  )  i 
while  (PLACE_HOLDER_INDEX  /=  TOKEN_ARRAY_SIZE  +  1)  loop 
if  not  (END_OF_FILE(TEST_FILE))  then 
GET_NEXT_TOKEN( TOKEN.RECORD ) i 

if  ( (TOKEN_RECORD.TOKEN_TYPE  /=  SEPARATOR)  and 
lTOKEN_RECORD.TOKEN_TYPE  /=  COMMENT))  then 
TOKEN_RECORD_BUFFER(PLACE_HOL0ER_INDEX)  :=  TOKEN_RECORO j 
PLACE_HOLDER_INDEX  :=  PLACE_HOLDER_INDEX  +  Ij 
elsif  (TOKEN_RECORD.TCKEN_TYPE  =  COMMENT)  then 

COMMENT_COUNT  :=  COMMENT_COUNT  *  Iv 
end  i  f  > 
else 

TOKEN_RECORD_BUFFER( PLACE _HOLDER_INDEX).TOKEN_TYPE  :=  ILLEGAL j 
T0KEN_REC0RD_3UFFER(PLACE_H0LDER_;:;iDEX).LEXEME_3I2E  :=  1} 
PLACE,HOLDER_INDEX  :=  PLACE_HOLDER_IN0EX  +  li 
end  i  f  i 
end  loop  i 

PLACE_HOLDER_INDEX  :=  li 
FULL  :=  TRUE  J 
end  i  f  i 

if  not  (RESERVE_W0RD_TEST1  then 

CURRENT_TOKEN_RECORD  :=  TOKEN_SECOR0_3UFFER( TOKEN_ARRAY_INDEX ) i 
end  ifi 

LEXEME.LENGTH  :=  CURRENT_TOKEN_RECORD . LEXEME_3IZE  -  li 
if  (CURRENT_TOKEN_RECORD.TOKEN_TYPE  =  IDENTIFIER)  then 

CONVERT_LOWER_CASE ( CURRENT_TOKEN,RECORD . LEXEME  ,  LEXEME_LENGTH  )  i 
and  i  f  ■> 

STATUS_COUNTER  :=  STATUS_COUNTER  +  li 
if  ( STATUS_COUNTER  =  OISPLAY_OELAY  )  then 

CLEARSCREENj 

CONVERT_UPPER_CASE( DATA_FILE_NAME ,  DATA_FILE_SIZE  )  J 

put( "Parse  of  ")j  put( ADJUST_LEXEME( DATA_FILE_NAME ,  DATA_FILE_SIZE  )  )  > 
put("  in  progress,  at  line  number  ")i    put( TOTAL_LINES_INPUT,  3)> 
STATUS_COUNTER  :=  0> 
end  i  f  > 
end  GET_CURRENT_TOKEN_RECORD> 


procedure  TRACE (TRACE_TOKEN  :  in  string j 

CONSUME,  RESERVE_WORD_TEST  :  in  boolean)  is 
begin 

if  (CONSUME)  and  then  not  ( RESERVE_WORD_TEST )  then 
put(RESULT_FILE,  "Parsed  a(n)  ")j 
put(RESULT_FILE,  TRACE_TOKEN )  J 
new_line(RESULT_FILE)} 
end  i  f \ 
end  TRACE  V 


—  this  procedure  adjusts  the  pointer  to  the  token  record  buffer, 
procedure  ADJUST_TOKEN_BUFFER( CONSUME ,  RESERVE_WORD_TEST  :  in  boolean)  is 
begin 

if  ((CONSUME)  and  not  ( RESERVE_WORD_TEST )  )  then 

TOKEN_ARRAY_INDEX  :=  ( TOKEN_ARRAY_INDEX  +  1)  mod  50 > 
if  ( TOKEN_ARRAY_INDEX  =  0)  then 

FULL  :=  FALSE  J 
end  i  f  i 
end  i  f } 
end  ADJUST_TOKEN_BUFFERj 
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—  this  function  takes  as  input  the  132  character  input_lexeme  and  generates 
a  variable  length  string  based  on  the  actual  size  of  the  input_ lexeme, 
function  ADJUST_LEXEME( INPUT_LEXEME  :  strings  SIZE  :  natural)  return  string  is 

subtype  LEXEME.BUFFER  is  string( 1. .SIZE  )  j 

ADJUSTED_LEXEME  :  LEXEME_BUFFER> 
begin 

for  I  in  1..SIZE  loop 

ADJUSTED_LEXEME(I)  :=  INPUT_LEXEME( I) ) 

end  loop ( 

return  (  ADJUSTED_LEXEME ) j 
end  ADJUST_LEXEME > 


procedure  CONVERT_LOWER_CASE( INPUT.LEXEME  :  in  out  strings 

LENGTH  :  in  out  integer )  is 
CONVERSION_FACTOR  :  constant  integer  :=  32} 

—  difference  between  upper  case  and  lower  case  letters  in  ASCII 
LETTER_VALUE  :  integers 
begin 

for  I  in  1. .LENGTH  loop 

if  (INPUT_LEXEME(I)  in  UPPER_CASE_LETTER )  then 

LETTER.VALUE  :=  character 'pos( INPUT_LEXEME(I  ) )  +  CONVERSION_FACTORv 
INPUT_LEXEME(I)  :=  character 'val( LETTER_VALUE  )  I 
end  i  f  > 
end  loop i 
end  CONVERT_LOWER_CASE > 


procedure  CONVERT_UPPER_CASE( INPUT_LEXEME  :  in  out  string; 

LENGTH  :  in  out  integer)  is 
CONVERSION_F ACTOR  :  constant  integer  :=  32j 

--  difference  between  upper  case  and  lower  case  letters  in  ASCII 
LETTER_VALUE  :  integers 
begin 

for  I  in  1 . . LENGTH  loop 

if  (INPUT_LEXEME(I)  in  LOWER_CASE_LETTER )  then 

LETTER_VALUE  :=  character 'pos(INPUT_LEXEMEt I) )  -  CONVERSION_FACTOR> 
INPUT_LEXEME(I)  :=  character 'vaK LETTER_VALUE  )  I 
end  i  f  i 
end  loop  i 
end  CONVERT_UPPER_CASEj 

end  BYPASS_SUPPORT_FUNCTIONSj 
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TITLE: 

MODULE  NAME: 
DATE  CREATED: 
LAST  MODIFIED: 

AUTHORS : 


AN  ADA  SOFTWARE  METRIC 

PROCEDURE  DEMON 
13  JUN  86 
03  DEC  86 

LCDR  JEFFREY  L.  NIEDER 
LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:  This  procedure  is  the  driver  for  AdaMeasure. 
It  also  contains  the  exception  handler  for  the  entire 
set  of  packages  which  comprise  AdaMeasure. 


with  MENU_DISPLAY,  GLOBAL_PARSER,  GLOBAL,  TEXT_IO» 
use  MENU_DISPLAY,  GLOBAL_PARSER,  GLOBAL,  TEXT_IO> 

procedure  DEMON  is 

package  NEH_INTEGER_IO  is  new  TEXT_IO.INTEGER_IO( integer U 
use  NEW_INTEGER_IO> 

begin 

DECLARATION  :=  TRUE  I 
INITIAL.MENUl 


exception 

when  PARSER_ERROR 

when  SCANNER  ERROR 


when  STATUS_ERROR  => 

when  MODE_ERROR  => 

when  NAME_ERROR  => 

when  USE_ERROR  => 

when  DEVICE_ERROR  => 

when  END_ERROR  => 

when  DATA_ERROR  => 

when  LAYOUT_ERROR  => 

when  CONSTRAINT_ERROR  => 

when  NUMERIC_ERROR  => 

when  STORAGE_ERROR  => 

when  PROGRAM_ERROR  => 

when  QUIT_TO_OS  => 

when  others  => 

end  DEMON J 


put(TOTAL_LINES_INPUTn  new_linei 

put( "Parser  error"  )> 
put( NEXT_CHARACTER ) i 

put( character 'pos(NEXT_CHARACTER  )  )  \    new_linev 

put( "    Error  occured,  program  halted"  )> 
putt "Status  error  occured  at  line  ")i 

put( TOTAL_LINES_INPUT ) j 
put ( "Mode  error  occured  at  line  ")j 

put! TOTAL_LINES_INPUT  )  > 
putt "Name  error  occured  at  line  ")j 

putt  TOTAL_LINES_INPUT ) i 
putt "Use  error  occured  at  line  "1> 

putt  TOTAL_LINES_INPUT  )  \ 
putt "Device  error  occured  at  line  ")i 

putt  TOTAL_LINES_INPUT  ) } 
putt "End  error  occured  at  line  ")5 

putt  TOTAL_LINES_INPUT )  > 
putt "Data  error  occured  at  line  ")j 

putt TOTAL_LINES_INPUT ) > 
putt "Layout  error  occured  at  line  ")j 

putt  TOTAL_LINES_INPUT  )  > 
putt "Constraint  error  occured  at  line  ")> 

putt  TOTAL_LINES_INPUT  )  \ 
putt "Numeric  error  occured  at  line  ")j 

putt  TOTAL_LINES_INPUT ) \ 
putt "Storage  error  occured  at  line  ")\ 

putt  TOTAL_LINES_INPUT ) ) 
putt "Program  error  occured  at  line  ")j 

putt  TOTAL_LINES_INPUT )  i 
CLEARSCREENj 
putt "Error  occured" ) j 
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TITLE; 


AN  ADA  SOFTWARE  METRIC 


MODULE  NAME: 
DATE  CREATED: 
LAST  MODIFIED: 


DISPLAY_SUPPORT 
11   OCT    86 
0<+   DEC   86 


—   AUTHORS: 


LCDR  JEFFREY  L.  NIEDER 
LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:   This  package  contains  -the  procedures  and 

function  -for  initializing  the  metric  parameters,  and 
supporting  the  user  interface. 


with  HALSTEAD_METRIC>  Gu08AL_?4RSER .  .5L0BAL,  7EXT_I0} 
use  HALSTEAD  METRIC,  3L0BAL_PARSER,  GLOBAL,  rEXT_IOj 


package  0ISPLAY_SUPPORT  is 

procedure  GET_FILENAME( TYPE_?RESENT  :  in  out  boolean  )  > 
procedure  GET_ANSHER( ERROR ,  FINISHED  :  in  out  boolean  )  j 
function  ADJUST_EDIT_BUFFER(INPUT_STRING  :  string; 

FILL_LENGTH  :  integer) 
procedure  RESET_?ARAMETERS> 

and  DISPLAY.SUPPORTv 


-eturn  string} 


package  aody  0ISPLAY_2UPPORT  is 

—  this  is  a  user  interface  support  procedure  that  prompts  the  user  for 
the  input  file  name,  wnenever  the  user  must  select  a  specific  file. 
procedure  GET_FILENAME( TYPE_PRESENT  :  in  out  ooolean J  is 
begin 

TYPE_PRESENT  :=  FALSE j 

for  I  in  1..LINESIZE  loop 


INPUT_FILE_NAME(I) 
TEST_FILE_NAME(I) 
DATA_FILE_NAME(I) 
end  loop} 


'} 
■} 
•} 


putt "++++++++++++++++++++++++++++++++++++++++++++++++++ 

put( "+++++++++++++++++++++++++++++" ) }  new_line) 

put("+ 

put("  +")}  new_line} 

put("+  Input  the  name  of  the  file  you  wish  to 

put( "  analyze  +")}  new_line} 

putC'  + 

putt"  +")}  new_line} 

put(  "  +  +  +++  +  +  +  ♦+  +  +  +  +++  +  +  +  +  +  +  +  +  ++++++  +  +  +  +  +  +  +  +  +  +  +++  +  +  +++  +  + 

put( "+++++++++++++++++++++++++++++"]}  new_line} 

new_line} 

put ( "Filename  =  ")} 

get_line(INPUT_FILE_NAME,  LENGTH_OF_LINE  ) }  new_line(2)} 
for  I  in  1. .LENGTH_OF_LINE  loop 

if  (INPUT_FILE_NAME(I)  =  '.')  then 
TYPE_PRESENT  :=  TRUE} 

end  i  f } 
end  loop } 

if  (TYPE_PRESENT)  then 

for  I  in  l..LENGTH_OF_LINE-<f  loop 

DATA_FILE_NAME(I)  :=  INPUT_FILE_NAME( I ) } 
end  loop } 
TEST_FILE_NAME  :=  INPUT_FILE_NAME } 
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DATA_FILE_SIZE  :=  LENGTH_OF_LINE  -  ^J 

else 

DATA_FILE_NAME  :=  INPUT_FILE_NAME l 
for  I  in  1. .LENGTH_OF_LINE  loop 

TEST_FILE_NAME(I  )  :=  INPUT_FILE_NAME(I ) > 
end  loop  i 

DATA_FILE_SIZE  :=  LENGTH_OF_LIME V 
end  i  f \ 
end  GET_FILENAME} 


—  this  user  interface  support  procedure  ensures  that  the  user  answers 
the  question  correctly,  and  deternnnes  if  the  user  is  finished, 
procedure  GET_ANSWER( ERROR,  FINISHED  ;  m  out  boolean)  is 
begin 

FINISHED  :=  false", 
get (ANSWER); 

if  (ANSWER  =  'N'T  or  (ANSWER  =  'n'  )    then 
FINISHED  :=  TRUE  5 

ERROR  :=  FALSE j  —  user  correctly  said  no 

elsif  (ANSWER  =  'YM  or  (ANSWER  =  'y' )  then 

^RROR  :=  1- ALSE  >  —  user  correctly  said  yes 

else 

ERROR  :=  TRUE;  —  user  answered  the  question  incorrectly 

end  if", 
end  3ET_ANSWERi 


--  this  Formatting  function  slaces  the  input  string  in  the  edit  buffer 
and  fills  the  remaining  buffer  spaces  with  periods, 
function  ADJUST_cDIT_3UFF£R( INPUT_3TRING  :  string; 

FILL_LENGTH  :  integer)  return  string  is 
begin 

for  I  in  1. .FILL_LENGTH  loop 

EDIT_BUFFER(I)  :=  INPUT_STRING( I ) ) 
end  loop ; 
•for  I  in  (FILL_LENGTH+1)..EDIT_LINE_SIZE  loop 

EDIT_BUFFER(I)  :='.'; 
end  loop ; 

return  ( EDIT_BUFFER  ) ; 
end  ADJUST_EDIT_BUFFER; 


this  procedure  resets  all  of  the  metric  parameters, 
procedure  RESET_PARAMETERS  is 
begin 

for  I  in  TOKEN.AND. .TOKEN_ASSIGNMENT  loop 

OPERATOR_ARRAY(I)  :=  0} 
end  loop ; 

for  I  in  IF_CONSTRUCT. .CASE_CONSTRUCT  loop 

CONSTRUCT_COUNT ( I  )  : =  0  > 
end  loop ; 

■for  I  in   FIRST_LEVEL_NEST.  .MAXIMUM_NESTING  loop 

NESTED_COUNT(I  )  :=  0; 
end  loop ; 

TOKEN_ARRAY_IN0EX  :=  0> 

PLACE_HOLDER_INDEX  :=  0> 

TOTAL_LINES_INPUT  :=  Oj 

COMMENT_COUNT  :=  0> 

CURRENT_NESTING_LEVEL         :=  Oj 
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MAXIMUM_NESTING_LEVEL  :=   Oi 

NESTING_LINE_NUMBER  :=  0> 


FIRST_TIME_LOAD 
FULL 

NESTED_LEVEL_INCREASE 
end  RESET_PARAMETERSv 

end  DISPLAY_SUPPORTl 


TRUE  J 
FALSE  J 
TRUE  I 
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—  TITLE:  AN  ADA  SOFTWARE  METRIC 

~  MODULE  NAME:     GENERAL_DATA 

—  DATE  CREATED:    14  OCT  86 

—  LAST  MODIFIED:   03  DEC  86 

—  AUTHORS:        LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

—  DESCRIPTION:   This  package  contains  the  procedure  to  display  — 

the  comment  count  and  nesting  level  metric  data. 

with  DISPLAY_SUPPORT,  HALSTEAD_METRIC ,  BYPASS_SUPPORT_FUNCTIONS,  GLOBAL_PARSER, 

GLOBAL,  TEXT_IOv 
use  DISPLAY_£UPPQRT,  HALSTEAD_METRIC ,  BYPASS_SUPPORT_FUNCTIONS,  GLOBAL.PARSER, 
GLOBAL,  TEXT_IOv 

package  GENERAL_DATA  is 

package  NEW_INTEGER_IO  is  new  TEXT_IO.INTEGER_IO( integer )  j 

use  NEW_INTEGER_IOv 

package  REAL_IO  is  new  TEXT_IO.FLOAT_IO( float ) » 
use  REAL_IOj 

procedure  VIEW_GENERAL> 
end  GENERAL  DATAi 


package  body  GENERAL_OATA  is 

—  this  procedure  computes  the  percentage  of  comments  to  total  lines  of  the 
input  file,  and  makes  recommendations  based  on  that  percentage.   It  also 
displays  what  nesting  constructs  were  utilized,  and  the  count  of  each 
nesting  level  attained  up  to  the  maximum  nesting  level  reached, 
procedure  VIEW_GENERAL  is 
RESULT  :  float j 
HOLD_CHARACTER  :  characters 
COUNT,  NEST  :  integers 
begin 

GET_FILENAME( TYPE_PRESENT ) i 

CLEARSCREENs 

open(DATA_FILE2,  in_file,  DATA_FILE_NAME  &   ".misc")s 

CONVERT_UPPER_CASE( DATA_FILE_NAME ,  DATA_FILE_SIZE  )  > 

putt"      ")> 

put ( "Comment  count  data  for  file  **    ")j 

put(ADJUST_LEXEME(DATA_FILE_NAME,  DATA_FILE_SIZE  )  )\ 

put("  **")> 

new_linej 

put(  " "  )  \ 

new_line( 2 ) i 

put(ADJUST_EDIT_BUFFER( "Total  number  of  lines  parsed",  28 )  )  > 

get(DATA_FILE2,  TOTAL_LINES_INPUT ,  5)i 

put(TOTAL_LINES_INPUT,  S)i 

new_linej 

put(ADJUST_EDIT_BUFFER( "Total  number  of  comment  lines  parsed",  36))> 

get(DATA_FILE2,  COMMENT_COUNT,  5)j 

put(COMMENT_COUNT,  5)> 

new_lines 

get_line(DATA_FILE2,  DUMMY_FILE_NAME ,  LENGTH_OF_LINE  )  > 

RESULT  :=  ( float (COMMENT_COUNT )  /  float! TOT AL_LINES_INPUT ) )  *  100. 0> 
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putt ADJUST_EDIT_BUFFER( "Percentage  of  comments  in  the  file",  34)  )i 

put( RESULT,  5,  1,  0)i 

new_line( 2 )  i 

put( "====  ===========  ====  ====  =====  ========  =  =  =  ================  ===  =  =  ===  =  ===  ==="  ) } 

new_line( 2  )  i 

if  (RESULT  >=  0.0)  and  (RESULT  <  20.0)  then 

put( "There  is  a  low  percentage  of   comments  to  the  total" )j 

new_linev 

put ( "number  of  lines  in  the  file.   Unless  utilization  of")> 

new_line J 

put( "Ada's  extensive  variable   identification  has  been"  )  v 

new_line> 

put(  "applied,  there  may  be  too  few  comments  for  adequate"  1', 

new_lins J 

put ("reader  comorehens ion . " ! i 

new^line^ 
elsif  I  RESULT  >=  CO.O)  and  (RESULT  <  50.0)  then 

put(  "There  is  a   reasonable   numoer  of   •comments  fco  the"  l  i 

new_Linei 

put( "total  number  of  lines  in  :he  ^ile.  'his  could  help"  U 

new_linev 

put( "a  reader  get  a  good  understanding  of  the  program.")! 

new_linei 
elsif   RESULT  >=  50.0)  and  (RESULT  <  85. 0)  then 

put( "There  is  a  fairly  high  percentage  of  comments  to  the"); 

new_linei 

put( "total   number  of  lines  in  the  rile.   'his  could  help'); 

new_Iinej 

put ( "the  reader  get  a  good   understanding  of  the  program,"); 

new _ line; 

puT(  "but  couid  run  the  -isK  of   oDscuring  the  ooae  in  '•he"  H 

new_line; 

put( "comments.  ") ;  new_line; 
else 

put( "There  is  an  extremely  high  oercentage  of  comments  to"); 

new_line; 

put("the  total  number  of  lines  in  the  file.  With  this  high"); 

new_line; 

put( "number  of  comments,  there  is  possibility  of  obscuring"); 

new_line; 

put ( "the  code  in  the  comments."); 

new_line; 
end  i  f ; 
new_line; 

put("It  must  be  clearly  understood,  that  this  assessment  of  comment  lines"); 
new_line; 

put("to  lines  of  code  is  not  a  hard  and  fast  rule,  but  a  suggestion  that"); 
new_line; 

put ( "may  enhance  the  understanding  of  the  code.  "); 
new_line( 2 ) ; 
putt "======================================================================"  ) ; 

new_line( 2 ) ; 

put( "         Enter  any  letter  to  continue  "); 

new_line; 

get( HOLD.CHARACTER ) ; 

CLEARSCREEN; 

put("      "); 

putt "Nesting  level  data  for  file  **  "); 

putt  ADJUST_LEXEME( DATA_FILE_NAME ,  DATA_FILE_SIZE ) ) ; 

putt "  ^*" ); 

new_line; 

putt "=================================================================="); 

new_linef  2 ); 

putt "DECISION  TYPE  UTILIZED");  new_line; 

putt  " "  ) ;  new_line; 

for  I  in  IF_CONSTRUCT. .CASE_CONSTRUCT  loop 

gettDATA_FILE2,  COUNT,  5); 

if  (COUNT  /=  0)  then 
case  I  is 
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when  IF.CONSTRUCT  => 

pu-fc(ADJUST_EDIT_BUFFER( "IF  construct",  12))> 

put (COUNT,  5);    new_line> 
when  LOOP.CONSTRUCT  => 

put(ADJUST_EDIT_BUFFER("LOOP  construct",  1^)M 

put( COUNT,  5)i    new_line> 
when  WHILE_CONSTRUCT  => 

putt ADJUST_EDIT_BUFFER( "WHILE  construct",  15 ) U 

put!  COUNT,  5H  new_linei 
when  FOR.CONSTRUCT  => 

putt ADJUST_EDIT_BUFFER( "FOR  construct",  ll))i 

putt  COUNT,  5))  new_linev 
when  CASS^CONSTRUCT  => 

putt  ADJUST_H0IT_3UFFER(  "CASE  .::onstruot"  ,  14  ))  j 

putt  COUNT,  5)j  new.linev 
when  others  ■=>  null; 
end  casat 
and  i  f  i 
end  loop  > 
new_line V 

get_line(DATA_FILE2,  DUMMY_'='ILE_NAME  ,  LENGTH_OF_LINE  )  > 
get(DATA_FILE2,  MAXIMUM_NESTING_LEVEL,  5U 
Set_line(DATA_FILE2,  3UMMY_rILc _MAME .  LENGTH_OF_LINE  ) » 
gettOATA_FILE2,  NESTING_'-INE_MUMBER,  5)i 
gat_iine(0ATA_FIL£2,  OUMMY_-ILE_,-IAME  ,  LENGTH_OF_lINE  J  v 

putt ADJUST_HDIT_BUFFER( "Maximum  nesting  level",  21 ) ) V 
put(MAXIMUM_NESTING_LEVEL.  5)v 
new _ line  J 

putt A0JUST_£DIT_3UFFERt "Initial  occurence  line  numoer',  29  1 )i 
put(NESTING_LINE_MUMBER,  5  1} 
new_line( 2  1  i 

for  I  in  FIRST_LEVEL_NEST. .MAXIMUM_NESTING_LEVEL  loop 

get(DATA_FILE2,  NEST,  S)\ 

putt "Total  nesting  ")v  putt  I,  2)i  putt"  deep  occured"  )  j 

put  I  NEST,  Z)i   putt"  times.")!  new_linei 
end  loop} 
new_line(2)> 

putt"         Enter  any  letter  to  continue  ")i 

new_line> 

get! HOLD_CHARACTER )  i 

get_line(DATA_FILE2,  IDUMMY_FILE_NAME  ,  LENGTH_OF_LINE  )  J 

closet DATA_FILE2)  J 
end  VIEW_GENERAL> 

end  GENERAL_DATA> 
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~  TITLE:  AN  ADA  SOFTWARE  METRIC 

—  MODULE  NAME:     PACKAGE  GET_NEXT_CHARACTER 

—  DATE  CREATED:    13  JUN  86 
--   LAST  MODIFIED:   0<+  NOV  86 

—  AUTHORS:        LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

DESCRIPTION:   This  package  contains  the  procedures  which 
fills  the  buffer  from  the  input  file  and  returns  the 

—  the  next  character  from  the  buffer  when  called. 

with  GLOBAL,  TEXT_IOj 
use  GLOBAL,  TEXT_IOi 

package  GET_NEXT_CHARACTER  is 

procedure  GETNEXTCHARACTER( NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER 

out  character )> 

procedure  FILL_BUFFER( INPUT_LINE  :  out  INPUT_CODE_LINE ) i 
end  GET  NEXT  CHARACTER j 


package  body  GET_NEXT_CHARACTER  is 

—  this  procedure  gets  the  next  character  to  be  manipulated  in 

the  creation  of  each  token 
procedure  GETNEXTCHARACTER( NEXT_CHARACTER,  LOOKAHEAD_ONE_CHARACTER  : 

out  character)  is 

—  if  the  last  character  is  read  from  the  input  buffer  then  it  is 

time  to  refill  the  buffer,  and  reset  the  index  variables 
begin 

if  NEXT_BUFFER_INDEX  =  REFILL_BUFFER_INDEX  then 

FILL_BUFFER( INPUT_LINE ) i 

CURRENT_BUFFER_INDEX  :=  0> 

NEXT_BUFFER_INDEX  :=  Ij 
end  i  f  i 
if  NEXT_BUFFER_INDEX  =  INPUT_LINE_SIZE  then 

LOOKAHEAD_ONE_CHARACTER  :=  ASCII. CRj 
else 

LOOKAHEAD_ONE_CHARACTER  :=  INPUT_LINE( NEXT_BUFFER_INDEX  +  1)> 
end  i  f  i 

NEXT_CHARACTER  :=  INPUT_LINE( NEXT_BUFFER_INDEX  )  > 
CURRENT_BUFFER_INDEX  :=  NEXT_BUFFER_INDEX> 
NEXT_BUFFER_INDEX  :=  NEXT_BUFFER_INDEX  +  Ij 
end  GETNEXTCHARACTERi 


procedure  FILL_BUFFER( INPUT_LINE  :  out  INPUT_CODE_LINE )  is 
begin 

for  i  in  1. .INPUT_LINE_SIZE  loop   —  reset  the  input  buffer  to  ail  $'s 
INPUT_LINE( i)  :=  '$'> 

end  loop  J 

get_line(TEST_FILE,  INPUT_LINE,  INPUT_LINE_SIZE  )  I 

TOTAL_LINES_INPUT  :=  TOTAL_LINES_INPUT  +  l\ 

REFILL_BUFFER_INDEX  :=  INPUT_LINE_SIZE  *    li 
end  FILL_BUFFERi 

end  GET_NEXT_CHARACTERj 
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—  TITLE:  AN  ADA  SOFTWARE  METRIC 

~  MODULE  NAME:     PACKAGE  GLOBAL 

—  DATE  CREATED:    13  JUN  86 

—  LAST  MODIFIED:   16  OCT  86 

—  AUTHORS:        LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

—  DESCRIPTION:   This  package  contains  all  -the  global  type, 

subtype,  and  variable  declarations. 

with  TEXT_IOj 

package  NEW_INTEGER_IO  is  new  TEXT_IO. INTEGER_IO( integer U 


with  TEXT_IO,  NEW_INTEGER_IO> 
use  TEXT_IO,  NEW_INTEGER_IOi 

package  GLOBAL  is 

LINESI2E  :  constant  integer  :=  100 > 

—  Ada  token  classes  -- 

type  TOKEN  is  (IDENTIFIER,  SEPARATOR,  NUMERIC_LIT ,  DELIMITER,  COMMENT, 

CHARACT£R_LIT,  STRING_LIT,  ILLEGAL); 

—  record  to  hold  the  token  built  up  by  the  scanner,  the  value  is  the 

token's  position  ( POS )  in  the  token  list,  the  lexeme  is  the  actual 
string  for  that  particular  token 
type  TOKEN_RECORD_TYPE  is 
record 

TOKEN_TYPE   :  TOKEN j 
TOKEN_VALUE  :  integer > 
LEXEME       :  stringC 1. . LINESIZE  )  > 
LEXEME_SIZE  :  natural > 
end  record  I 

—  this  array  is  the  input  buffer,  it  holds  each  line  of  code  when 

read  from  the  input  file 
subtype  INPUT_CODE_LINE  is  stringd.  .  LINESIZE  )  J 

subtype  UPPER_CASE_LETTER  is  character  range  'A'..'Z'> 
subtype  LOWER_CASE_LETTER  is  character  range  'a'..'2'J 
subtype  UPPER_CASE_HEX  is  UPPER_CASE_LETTER  range  •A'..'F'v 
subtype  LOWER_CASE_HEX  is  LOWER_CASE_LETTER  range  •a'..'f'\ 

subtype  DIGITS_TYPE  is  character  range  '0'..'9'\ 

—  the  following  subtype  declarations  make  use  of  the  POS  attribute 

which  returns  the  integer  value  of  the  particular  ASCII 
character  argument 

—  set  of  formators  characterized  by  their  ASCII  value  — 

—  formators  are  horizontal  tab,  line  feed,  vertical  tab,  form  feed, 

and  carraige  return 
subtype  FORMATORS  is  integer 

range  character 'pos( ASCII . HT ) . . character 'post ASCII .CR ) } 

—  first  set  of  delimiters  characterized  by  their  ASCII  value  — 

—  delimiters  are  ampersand,  accent  mark,  left  paren,  right  paren, 

asterisk,  plus  sign,  comma,  dash,  period,  slash 
subtype  DELIMITERl  is  integer 
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range  character 'pos(  ' S'  ) . .character' pes (  '/' H 


—  second  set  of  delimiters  characterized  by  their  ASCII  value  — 

—  delimiters  are  colon,  semi-colon,  less  than,  equal,  greater  than 
subtype  DELIMITERS  is  integer 

range  character 'pos(  ' : '  ). .character 'pos(  ' >' ) j 

—  compound  delimiters  whose  first  symbol  is  in  second  set  of  delimiters 

—  the  entire  set  of  compound  delimiters  are  <=,  >=,  /=,  **,  <<,  >>,  =>, 

:=,  <>,  .. 

subtype  COMPOUND.DELIMITER  is  DELIMITER2 

range  character 'pos(  '<'  ). .character 'pos(  '>'  )) 


TEST_FILE,  aESULT_rIL5 

input_?ile_mame 

next_character 

look ahead_one .character 

current_buffer_index 

next_3uffer_:ndex 

token_record 

input.line 

total_lines_input 

refill_buffer_index 

lexeme_length,  input_line_size 

token  class 


f ile_type> 

stringd.  .  LINESIZE 
character; 
characters 
integer ; 
integer  :-    0\ 
TOKEN_RECORD_TYPE ; 
INPUT_CODE_LINE> 
integer  :=  Oj 
natural  :=  Ov 
natural ( 
TOKEN i 


procedure  ERROR_MESSAGE( T0KEN_CLAS3  :  in  out  TOKEN  )  5 
SCANNER_ERROR  :  exceptions 

and  GLOBAL* 


package  body  GLOBAL  is 

—  procedure  called  when  an  error  is  detected  by  any  of  the  token  class 

routines,  an  integer  value  is  passed  identifying  which  routine  called 
this  procedure,  and  the  SCANNER_ERROR  exception  is  raised, 
procedure  ERROR_MESSAGE(TOKEN_CLASS  :  in  out  TOKEN)  is 

SCANNER_ERROR_VALUE  :  integer) 
begin 

SCANNER_ERROR_VALUE  :=  TOKEN  * pos( TOKEN_CLASS  )  > 
case  SCANNER_ERROR_VALUE  is 

"Illegal  identifier  at  line  number  ")j 
"Illegal  separator  at  line  number  ")> 
"Illegal  numeric  literal  at  line  number  ")i 
"Illegal  delimiter  at  line  number  ")i 
"Illegal  comment  at  line  number  ")i 
"Illegal  character  literal  at  line  number  ")j 
"Illegal  string  literal  at  line  number  ")i 
"Illegal  first  character  at  line  number  ")j 


when 
when 
when 
when 
when 
when 
when 
when 


=  > 
=  > 
=  > 
=  > 
=  > 
=  > 
=  > 
=  > 


put(RESULT_FILE, 
putlRESULT_FILE, 
put(RESULT_FILE, 
put(RESULT_FILE, 
put(RESULT_FILE, 
put(RESULT_FILE, 
put(RESULT_FILE, 
put(RESULT_FILE, 
nullj 


when  others  => 
end  cases 

put(RESULT_FILE,  TOTAL_LINES_INPUT )> 
new_line( RESULT_FILE  )> 

raise  SCANNER_ERRORj 
end  ERROR_MESSAGE> 

end  GLOBAL > 
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—  TITLE: 

~  MODULE  NAME: 

~  DATE  CREATED: 

~  LAST  MODIFIED; 

—  AUTHORS: 


AN  ADA  SOFTHARE  METRIC 

PACKAGE  GLOBAL_PARSER 
17  JUL  86 
03  DEC  36 

LCDR  JEFFREY  L.  NIEDER 
LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:   This  package  contains  the  global  variables 

used  by  the  parser  and  metric.   It  also  contains  all 
of  the  declarations  of  the  reserved  words  and  reserved 
symbols  recognized  by  the  language. 


with  GLOBAL,  TEXT.IOi 
use  GLOBAL,  TEXT_IO> 

package  GLOBAL_PARSER  is 

TOKEN_ARRAY_SIZE  :  cons  tan 

EDIT_LINE_SIZE  :  constan 

TOKEN_IDENTIFIER  :  constan 

TOKEN_NUMERIC_LITERAL  :  constan 

"^OKEN_CHARACTER_'.ITERAL  :  constan 

T0KEN_3TRING__lf£RAL  :  constan 

TOKEN_END  :  constan 

TOKEN_BEGIN  ;  constan 

TOKEN.IF  :  constan 

TOKEN_THEN  :  constan 

TOKEN_ELSIF  :  constan 

TOKEN_ELSE  :  constan 

TOKEN.WHILE  :  constan 

TOKEN_LOOP  :  constan 

TOKEN_CASE  :  constan 

TOKEN_WHEN  :  constan 

TOKEN_DECLARE  :  constan 

TOKEN_FOR  :  constan 

TOKEN_OTHERS  :  constan 

TOKEN_RETURN  :  constan 

TOKEN_EXIT  :  constan 

TOKEN_PROCEDURE  :  constan 

TOKEN_FUNCTION  :  constan 

TOKEN_WITH  :  constan 

TOKEN_USE  :  constan 

TOKEN_PACKAGE  :  constan 

TOKEN_BODY  :  constan 

TOKEN_RANGE  :  constan 

TOKEN_IN  :  constan 

TOKEN_OUT  :  constan 

TOKEN.SUBTYPE  :  constan 

TOKEN_TYPE  :  constan 

TOKEN.IS  :  constan 

TOKEN.NULL  :  constan 

TOKEN_ACCESS  :  constan 

TOKEN_ARRAY  :  constan 

TOKEN_DIGITS  :  constan 

TOKEN_DELTA  :  constan 

TOKEN_RECORD_STRUCTURE  :  constan 

TOKEN.CONSTANT  :  constan 

TOKEN_NEW  :  constan 

TOKEN.EXCEPTION  :  constan 

TOKEN_RENAMES  :  constan 

TOKEN_PRIVATE  :  constan 

TOKEN_LIMITED  :  constan 


integer 

= 

50 1 

integer 

~ 

50  > 

integer 

= 

1> 

integer 

= 

2i 

integer 

■= 

Zi 

integer 

1 

<+» 

integer 

■z 

5i 

integer 

•= 

6  i 

integer 

■= 

7\ 

integer 

= 

3V 

integer 

= 

"^S 

integer 

= 

10  > 

integer 

= 

11> 

integer 

= 

12v 

integer 

= 

131 

integer 

= 

l^J 

integer 

= 

15  > 

integer 

= 

16> 

integer 

= 

17> 

integer 

= 

18} 

integer 

= 

19) 

integer 

= 

20  J 

integer 

= 

21> 

integer 

= 

22) 

integer 

= 

23) 

integer 

= 

Z(\\ 

integer 

= 

25  > 

integer 

= 

26j 

integer 

= 

27i 

integer 

= 

28  J 

integer 

= 

29j 

integer 

= 

30} 

integer 

= 

31} 

integer 

= 

32} 

integer 

= 

33} 

integer 

= 

34} 

integer 

= 

35} 

integer 

r 

36} 

integer 

= 

37} 

integer 

= 

38} 

integer 

= 

39} 

integer 

= 

40} 

integer 

= 

41} 

integer 

= 

42} 

integer 

= 

43} 
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TOKEN_TASK 

TOKEN_ENTRY 

TOKEN_ACCEPT 

TOKEN_DELAY 

TOKEN_SELECT 

TOKEN_TERMINATE 

TOKEN_ABORT 

TOKEN_SEPARATE 

TOKEN_RAISE 

TOKEN_GENERIC 

TOKEN_AT 

TOKEN_REVERSE 

TOKEN_0O 

TOKEN_GOTO 

TOKEN_OF 

TOKEN_ALL 

TOKEN_PRAGMA 

TOKEN_AND 

TOKEN.OR 

TOKEN.NOT 

TOKEN.XOR 

TOKEN_MO0 

TOKEN_REM 

TOKEN_ABSOLUTE 

TOKEN_ASTERISK 

TOKEN_SLASH 

TOKEN.EXPONENT 

TOKEN_PLUS 

TOKEN_MINUS 

TOKEN_AMPERSAND 

TOKEN_EQUALS 

TOKEN_NOT_EGUALS 

TOKEN_LESS_THAN 

TOKEN_LESS_THAN_EQUALS 

TOKEN_GREATER_THAN 

TOKEN_GREATER_THAN_EQUALS 

TOKEN_ASSIGNMENT 

TOKEN_SEMICOLON 

TOKEN_PERIOD 

TOKEN_LEFT_PAREN 

TOKEN_RIGHT_PAREN 

TOKEN.COLON 

TOKEN_COMMA 

TOKEN_APOSTROPHE 

TOKEN_RANGE_DOTS 

TOKEN_ARROW 

TOKEN_BAR 

TOKEN_BRACKETS 

TOKEN.LE  FT_BRACKET 

TOKEN_RIGHT_BRACKET 


constanH 

;  integer 

= 

4<^> 

constan^ 

k  integer 

= 

45  > 

cons tan 1 

:  integer 

= 

46  > 

constani 

:  integer 

= 

47) 

constanl 

t  integer 

= 

48  > 

constani 

t  integer 

= 

49) 

constani 

t  integer 

= 

50) 

constani 

k  integer 

= 

51) 

constani 

:  integer 

= 

52) 

constani 

k  integer 

= 

53) 

constani 

:  integer 

= 

54) 

constani 

k  integer 

= 

55) 

constani 

k  integer 

= 

56) 

constani 

k  integer 

= 

57) 

constani 

k  integer 

= 

58) 

constani 

k  integer 

= 

59) 

constam 

c  integer 

= 

60) 

constani 

k  integer 

= 

61) 

constani 

k  integer 

= 

62) 

constani 

k  integer 

= 

63) 

constani 

k  integer 

= 

64) 

constani 

k  integer 

= 

65) 

constani 

k  integer 

= 

66) 

constani 

k  integer 

= 

67) 

constani 

k  integer 

= 

o8) 

constani 

k  integer 

= 

69) 

constani 

:  integer 

= 

70) 

constani 

k  integer 

= 

71) 

constani 

k  integer 

= 

72) 

constani 

k  integer 

= 

73) 

constani 

k  integer 

= 

74) 

constani 

k  integer 

= 

75) 

constani 

t  integer 

= 

76) 

constani 

t  integer 

= 

77) 

constani 

t  integer 

= 

78) 

constani 

t  integer 

= 

79) 

constani 

k  integer 

= 

80) 

constani 

:  integer 

r 

81) 

constant 

:  integer 

= 

82) 

constani 

:  integer 

= 

83) 

cons tan' 

:  integer 

= 

84) 

constani 

k  integer 

= 

85) 

cons tan- 

k  integer 

= 

86) 

cons tan' 

:  integer 

•  = 

87) 

constan' 

k  integer 

= 

88) 

cons tan 

:  integer 

= 

89) 

cons tan' 

k  integer 

= 

90) 

cons tan- 

:  integer 

•  = 

91) 

cons  tan 

k  integer 

= 

92) 

cons tan' 

:  integer 

= 

93) 

type  TOKEN_RECORD_BUFFER_ARRAY  is 

array  ( 0. .TOKEN_ARRAY_SIZE  )  of  TOKEN_RECORD_TYPE ) 


TOKEN_RECORD_BUFFER 
CURRENT_TOKEN_RECORD 
LOOK  AHEAD  TOKEN 


TOKEN_RECORD_BUFFER_ARRAY  » 
TOKEN_RECORD_TYPE ) 
TOKEN_RECOR0_TYPE ) 


TOKEN_ARRAY_INDEX 

LENGTH_OF_LINE 

PLACE_HOLDER_INDEX 

COMMENT_COUNT 

DATA_FILE_SIZE 

STATUS_COUNTER 

FULL 
FINISHED 


:  integer 

:=  0) 

:  integer 

:=  0) 

:  integer 

:=  0) 

:  integer 

:=  0) 

:  integer 

:=  0) 

:  integer 

:=  0) 

:  boolean 

:=  FALSE) 

:  boolean 

:=  FALSE) 
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RESERVE_WORD_TEST 

FIRST_TIME_LOAD 

PROCEDURE_TEST 

ERROR 

TYPE.PRESENT 

DECLARATION 

TEST_FILE_NAME 
DATA_FILE_NAME 
DUMMY_FILE_NAME 
EDIT_3UFFER 

ANSWER 

DATA_FILE1,  DATA_FILE2 

DATA_FILE3,  DATA_FILS'+ 

PARSER_EaROR 

QUIT_TO_OS 

procedure  CLEARSCREENj 

procedure  SYNTAX_ERROR( ERROR_MESSAGE 

end  GLOBAL_PARSERl 


boolean  : 
boolean  : 
boolean  : 
boolean  : 
boolean  : 
boolean ( 


FALSE  I 
TRUE  J 
FALSER 
FALSE) 
FALSE) 


stringd.  .LINESIZE)) 
stringd.  .LINESIZE)) 
string! 1. .LINESIZE )j 
stringd.  .EDIT_LINE_SIZE  U 

character) 
f ile_type ) 
f ile_type> 
exception) 
exception) 


string)) 


package  body  GLOBAL_PARSER  is 

procedure  CLEARSCREEN  is 
begin 

putl  ASCII.  ESC  I    "CJ"U 
end  CLEARSCREEN) 


procedure  SYNTAX_ERROR( ERROR_MESSAGE  :  string)  is 
begin 

putl "Incomplete  ")) 

put( ERROR.MESSAGE ) ) 

put( "  at  line  number")) 

put(RESULT_FILE,  "Incomplete  ")) 
put(RESULT_FILE,  ERROR_MESSAGE  ) ) 
put(RESULT_FILE,  "at  line  number")) 

raise  PARSER_ERROR) 
end  SYNTAX_ERROR) 

end  GLOBAL_PARSER) 
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— **^*^5(*9(*J(*9f*9f*J(***********9******^9**5*^J(*******3f*^*9**9f9(**9f*5(**** — 


TITLE: 


AN  ADA  SOFTWARE  METRIC 


MODULE  NAME: 
DATE  CREATED: 
LAST  MODIFIED: 


HALSTEAD_DISPLAY 
11  OCT  86 
03  DEC  86 


AUTHORS: 


LCDR  JEFFREY  L.  NIEDER 
LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:   This  package  contains  all  of  -the  orocedures 

and  functions  necassary  to  implement  Halstead's  length 
metric. 

with  0ISPLAY_3UPPORTv  HALSTEAD^METRIC ,  3YPASS_SUPP0RT_FUNCTI0NS,  GLOBAL^PARSER, 

GLOBAL,  TEXT_IO; 
use  DISPLAY_SUPPORT,  HAL3TEAD_METRIC ,  3YPASS_SUPP0RT_FUNCTI0NS,  GLOBAL.PARSER , 
GLOBAL,  TEXT_IOi 

package  HALSTEAD.OISPLAY  is 

package  NEW_INTEG£R_IO  is  new  TEXT_IO. INTEGER_IO( integer H 
use  MEH_INTEGER_IO-, 

package  REAL_IO  is  new  TEXT_I0.FLQAT_IO( float ) > 
use  REAL_IOv 

procedure  HALSTEAO* 
procedure  VIEH_OPERATORSi 
procedure  OPERAN0_MENU; 
procedure  VIEN_SCOPE_STRUCTURES i 
procedure  VIEW_VARIASL5S j 
procedure  VIEH_BLOCKSi 
procedure  METRIC_CONCLUSIONS> 
function  L0G2( NUMBER  :  float)  return  floats 
function  NATURAL_LOG( NUMBER  :  float)  return  float  J 
end  HALSTEAD.DISPLAYi 


package  body  HALSTEAD_OISPLAY  is 

—  this  procedure  provides  a  menu  of  selections  for  viewing  Halstead's 
length  metric  data.   It  also  loads  the  symbol  table  array, 
procedure  HALSTEAD  is 

DONE  :  boolean  :=  FALSE > 
DUMMY_LINE_LENGTH  :  integers 
LEXEME_NAME  : string! 1 . . LINESIZE ) J 
begin 

GET_FILENAME ( TYPE_PRESENT ) j 
while  not  (DONE)  loop 
CLEARSCREEN^ 
new_line> 


put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 


***^^^***)t***********9**"  )  J  new_line  > 

*")i   new_linej 

*  HALSTEAD  SELECTION  MENU 

*")J  new_linej 

»")j  new_linev 

w")j  new_linej 

*  HERE  ARE  THE  HALSTEAD  METRIC  OPTIONS  AVAILAB 
LE  TO  YOU  *")j  new_linej 
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put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
get 
get 


"* 
"* 
"* 
"^ 
"» 

"^ 

*")j  new_line> 
Simply  enter  the  number  of  your  choice' 

*")i   new_line> 

1 

1 

-  HALSTEAD 

new_line> 
OPERATORS 
new_linei 

2 

-  HALSTEAD 

new_linej 

OPERANDS 

new_line) 

11^ 

3 

-  HALSTEAD 

new_linei 

METRIC  CONCLUSIONS 

new_iine> 

^ 

*"1;  new_line\ 
-  EXIT  TO  METRIC  SELECTION  MENU 
^"  )\   new_line> 

S 

■*"  ) ".  new_line; 

-  EXIT  TO  OPERATING  SYSTEM 

*"U  new_linej 

1  1  ^f^^^J^^ye^rxf^ 

new_linev 

"Choice  =  "  )  •> 

ANSWER li 

,:ine(  DUMMY  _  FILE  _.^AME,  OUMMY_'.INE_LENGTH  )  >        —  flush  system  input 


—  load  the  symooi  table  array  — 

open(DATA_FILE3,  in_file,  aATA_FILE_('^AME  S  "  .  rand"  U 

get(DATA_FILE3,  LAST_ENTRY_INDEX,  5U 

3eT:(DATA_FILE3,  TOTAL_OPERAND_COUNT ,  5H 

get_line(DATA_FILE3,  DUMMY_FILE_NAME ,  LENGTH_OF_LINE ) J 

for  I  in  0. .LAST_ENTRY_INDEX-1  loop 

get(DATA_FILE3,  SYMBOL_TABLE(I  )  .SCOPE ,  5)> 
get(DATA_FILE3,  SYMBOL_TABLE(I  )  .REFERENCE ,  5)> 
get(DATA_FILE3,  SYMBOL_TABLE(I  ).DECLARATION_TYPE ,  5) J 
get_linelDATA_FILE3,  LEXEME_NAME,  LENGTH_OF_LINE ) > 
NEW_NODE  :=  new  OPERAND_TYPE > 
NEW_NODE. OPERAND  :=  LEXEME_NAME > 
NEW_NODE.SIZE  :=  LENGTH_OF_LINE > 
NEW_NODE.NEXT_OPERAND  :=  nullj 
SYMBOL_TABLE(I).LEXEME_ADDRESS  :=  NEW_NODE > 

end  loop  J 

close(DATA_FILE3)j 

new_line( 2 )> 
case  ANSWER  is 

when  '1'  =>  VIEW_OPERATORSj 

when  '2'  =>  OPERAND_MENU> 

when  '3'  =>  METRIC_CONCLUSIONS) 

when  •^'    =>  DONE  :=  TRUE) 

when  '5'  =>  raise  QUIT_TO_OSj 

when  others  =>  nulli 
end  case) 
end  loop) 
end  HALSTEAD) 


—  this  procedure  displays  the  Halstead  operator  metric  data, 
procedure  VIEW_OPERATORS  is 

DONE  :  boolean) 

OCCURENCES,  OPERATORS_USED     :  integer  :=  0) 
HOLD_CHARACTER  :  character) 

LEXEME_NAME  :  stringCl, . LINESI2E  ) ) 
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begin 

CLEARSCREENi 

open(DATA_FILEl,  in_filG,  DATA_FILE_NAME  S  ".data")} 

putt  "*^******9**********^^*****^**^**^**^(**9*#******9****^*******"  )  ) 

putt  "*******3*^5*5f*9«9«-***9t***^i*"  1 J  new_line(  2  )  > 

CONVERT_UPPER_CASE(DATA_FILE_NAME,  DATA_FILE_SIZE  )  J 

put("  Operator  data  for  file  **  "7> 

putt  ADJUST_LEXEME( DAT A_FILE_NAME ,  DATA_FILE_SIZE  1 )  J 

putt"  *^"))  new_linet2)i 

putt "OPERATOR  UTILIZED"))  new_line> 

putt  " ~ "  )  J  new_line> 

for  I  in  TOKEN.AND. .TOKEN_ASSIGNMENT  loop 
get(OATA_FILEl,  OCCURENCES  )j 
if  (OCCURENCES  /=  0)  then 
case  I  is 

when  TOKEN_AND  => 

putt ADJUST_EDIT_BUFFERt "Boolean  'AND'",  13 1 U 
when  TOKEN_OR  => 

putt AOJUST_EDIT_BUFFERt "Boolean  'OR'",  12) )> 
when  TOKEN_NOT  => 

putt AOJUST_EDIT_BUFFERt "Boolean  'NOT'",  13 ) ) > 
when  TOKEN.XOR  => 

putt AOJUST_EDIT_BUFFERt "Boolean  'XOR'",  13 ) ) J 
when  TOKEN_MOD  => 

putt ADJUST_EDIT_BUFFERt "Modulus  'MOD'",  13) )j 
when  TOKEN_REM  => 

putt ADJUST_EDIT_BUFFERt "Remainder  'REM'",  IS))) 
when  TOKEN_ABSOLUTE  => 

putt A0JUST_EDIT_8UFFERt "Absolute  Value  ' ABS " " ,  20))) 
when  TOKEN_ASTERISK  => 

putt ADJUST_EDIT_BUFFERt "Multiplication  ' * '"  ,  18))) 
when  TOKEN_SLASH  => 

putt ADJUST_EDIT_BUFFERt "Division  '/'",  12))) 
when  TOKEN_EXPONENT  => 

putt ADJUST_EDIT_BUFFERI "Exponentiation  •*^'",  19))) 
when  TOKEN_PLUS  => 

putt ADJUST_EDIT_BUFFERt "Addition  '  + '"  ,  12))) 
when  TOKEN_MINUS  => 

putt ADJUST_EDIT_BUFFERt "Subtraction  '-'",  15))) 
when  TOKEN.AMPERSAND  => 

putt  ADJUST_EDIT_BUFFERt  "Catenation  'S'",  l-^))) 
when  TOKEN_EQUALS  => 

putt ADJUST_EDIT_BUFFERt "Equality  '='",  12))) 
when  TOKEN_NOT_EQUALS  => 

putt ADJUST_EDIT_BUFFERf "Inequality  '/='",  15))) 
when  TOKEN_LESS_THAN  => 

putt ADJUST_EDIT_BUFFERt "Less  Than  '<"',  13))) 
when  TOKEN_LESS_THAN_EQUALS  => 

putt ADJUST_EDIT_BUFFERt "Less  Than  Equals  '<=•",  21))) 
when  TOKEN_GREATER_THAN  => 

putt ADJUST_EDIT_BUFFERt "Greater  Than  • >  "• ,  16))) 
when  TOKEN_GREATER_THAN_EQUALS  => 

putt ADJUST_EDIT_BUFFERt "Greater  Than  Equals  '>='",  2^))) 
when  TOKEN_ASSIGNMENT  => 

putt ADJUST_EDIT_BUFFER( "Assignment  ':="',  15))) 
when  others  =>  null) 

end  case) 

puttOCCURENCES,5)) 
new_line) 
end  if)  —  if  occurences  /=  0 

end  loop ) 
get_linGt  DATA_FILE1 ,  DUMMY_FILE_NAME ,  LENGTH_OF_LINE  ) ) 

for  I  in  IF_CONSTRUCT. .CASE_CONSTRUCT  loop 
gettDATA_FILEl,  OCCURENCES,  5)) 
if  t OCCURENCES  /=  0)  then 
case  I  is 
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when  IF.CONSTRUCT  => 

pu-t(ADJUST_EDIT_BUFFER("IF  construct",  12))^ 
when  LOOP_CONSTRUCT  => 

put(A0JUST_EDIT_BUFFER("LOOP  construct",  !<+))> 
when  WHILE.CONSTRUCT  => 

put(ADJUST_EDIT_BUFFER( "WHILE  construct",  15 JU 
when  FOR_CONSTRUCT  => 

put(ADJUST_EDIT_BUFFER("FOR  construct",  13  )  )  > 
when  CASE_CONSTRUCT  => 

put(ADJUST_EDIT_BUFFER("CASE  construct",  14 ) ) > 
when  others  =>  nullv 
end  case, 

putt  OCCURENCES,  5)i    new_linev 
end  if; 
end  loop^ 

new_line5 

put(ADJUST_EDIT_3UFFER( "Number  of  individual  operators  used",  35 )  )  5 

get(DATA_FILEl,  OPERATORS_USED  )  v 

put(OPERATORS_USED,  Sn 

new_line> 

put(ADJUST_EDIT_BUFFER( "Total  number  of  occurences",  26) )\ 

get(DATA_FILEl,  OCCURENCES  )v 

putt  OCCURENCES,  5)\ 

new_linel 2 ) 5 

closet  DAT A_FILE1)} 


putt" 

new_linei 

gett  HOLD_CHARACTER  )  •, 
end  VIEW_OPERATORSi 


Enter  any  letter  to  continue  ")j 


—  this  procedure  provides  a  menu  of  selections  for  viewing  the 
Halstead  operand  metric  data. 
procedure  OPERAND_MENU  is 
DONE  :  boolean  :=  FALSE  J 
DUMMY_LINE_LENGTH  :  integer j 
begin 

while  not  t DONE  )  loop 
CLEARSCREENj 
new_line> 


put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 


****9f**^j«*^*9***********"  )  J  new_l  ine } 

*")j  new_linej 
^  HALSTEAD  OPERAND  SELECTION  MENU 

*")i   new_line> 

»")>  new_line> 

*")i   new_linei 

*  HERE  IS  THE  OPERAND  DATA  AVAILABLE 

*"  )  i    new_linej 

*")}  new_linej 

*  Simply  enter  the  number  of  your  choice 

*")i   new_line> 


ON 


'* 


*" )  >  new_linei 

1  -  PROCEDURE,  FUNCTION,  PACKAGE  INFORMATI 

*")>  new_line> 

*")j  new_linei 

2  -  VARIABLES  AND  CONSTANTS  INFORMATION 

*"  )>  new_line> 

*")$  new.line) 
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put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
get 
get 


II 

•■* 

II 
II 


3  -  TASKS  AND  BLOCKS  INFORMATION 
»" U  new_linej 

*")i   new_linei 
«+  -  EXIT  TO  HALSTEAD  SELECTION  MENU 
*"  )  V  new_line5 

^"  )  V  new_line> 
5  -  EXIT  TO  OPERATING  SYSTEM 
*"  )  V  new_linej 


"  *")>  new_line> 

"Choice  =  "  !  j 

ANSWER  )  y 

,iineiDUMMY_FILE_NAME,  DUMMY_LINE_LENGTH  )  v       ~  flush  system  input 


new_linei 2 ) \ 
case  ANSWER  is 

when  ' 1 '  =  > 

when 

when 

when 

when 


7IEW_SC0PE_STRUCTURES  i 
'2'  =>  VIEW_VARIABLES> 
■3"  =>  VIEW_BLOCKSi 
'<+'  =>  DONE  :=  TRUEj 

=>  raise  OUIT  TO  OSv 


'5' 

when  others  =>  nuili 
end  casev 
end  loop  i 
end  OPERAND_MENUi 


—  this  procedure  displays  the  Haistead  operand  metric  data  tor 
packages,  procedures »  and  runctions. 
procedure  VIEW_SCOPE_STRUCTURES  is 

SCREEN_COUNTER  :  integer  : =  0 i 

NAME  :  stringd.  .LINESIZE)> 

SIZE,  COUNT     :  integer j 

HOLD_CHARACTER  :  character > 
begin 

CLEARSCREENj 

putt  "***a*^*******Jf^********5«*"  )  i   new_line(  2  )  j 

CONVERT_UPPER_CASE(DATA_FILE_NAME,  DATA_FILE_SIZE  )i 
for  DECLARE_TYPE  in  PACKAGE_DECLARE . . FUNCTION_DECLARE  loop 
case  DECLARE_TYPE  is 

when  PACKAGE_DECLARE    => 

put("   PACKAGES  for  file  -  ")j 
when  PROCEDURE.DECLARE  => 

put("   PROCEDURES  for  file  -  ")> 
when  FUNCTION_DECLARE   => 

putC   FUNCTIONS  for  file  -    ")i 
when  others  =>  nullj 

end  case( 

put(ADJUST_LEXEME(DATA_FILE_NAME,  DATA_FILE_SIZE ) ) }  new_line(2n 
putC'NAME                                      REFERENCED"  )  I  new_line> 
put(  " "  )  J  new_line> 

for  I  in  0. .(LAST_ENTRY_INDEX-1)  loop 

NAME   :=  SYMBOL_T ABLE (I ).LEXEME_AODRESS. OPERAND  J 

SIZE   :=  SYMBOL_TABLE(I).LEXEME_ADDRESS.SIZE> 

COUNT  :=  SYMBOL_TABLE( I). REFERENCE > 

if  (SYMBOL_TABLE(I  ).DECLARATION_TYPE  =  DECLARE_TYPE )  then 

put( ADJUST_EDIT_BUFFER(  NAME ,  SIZE  ) )  j 

put (COUNT,  5)i    new_linej 

SCREEN_COUNTER  :=  SCREEN_COUNTER  +  Ij 

if  (SCREEN_COUNTER  =  10)  then 
new_line( 3 ) j 
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putt"  Enter  any  letter  to  continue  ")i 

new_linej 

get( HOLD_CHARACTER ) ) 

CLEARSCREEN5 

SCSEEN.COUNTER  :=    Oi 

case  DECLARE_TYPE  is 

when  PACKAGE.DECLARE    => 

put("   PACKAGES  for  file  -  ")> 
when  PROCEDURE_DECLARE  => 

putC   PROCEDURES  for  file  -  ")j 
when  FUNCTION_DECLARE   => 

putC"   FUNCTIONS  for  file  -    ")\ 
when  others  =>   nullj 

end  sase< 

put( ADJUST_LEXEME( DATA_FILE_MAME  ,  QATA_FILE_SIZE ) 1 ;  new_line( Z  )  5 
putC'MAME  REFERENCED" n 

new_iine» 

put(  " "  )  > 

new_iinei 
end  if>  —  if  3creen_counter  =  10 

end  if>  —  if  symboi_table{ i  )  .declaration_typQ 

end  loopi  —  for  i  in  0. . ( last_entry_index-l ) 

new_line( 2  )> 

put( "  Enter  any  letter  to  continue  ")V 

new_line ; 

get( HOLD_CHARACTER  )  i 
CLEARSCRSENv 
3CREEN_C0UNTER  :  =  0  •, 
and  loopv  —  for  declare_^ype  in 

end  VIEW_3C0PE_STRUCTURESi 


—  this  procedure  displays  the  Halstead  operand  metric  data  for 
variables*  numeric  constants,  and  global  variables, 
procedure  VIEW_VARIASLES  is 

SCREEN_COUNTER  :  integer  :=  Oj 

NAME  :  stringd.  .LINESIZEll 

SIZE,  COUNT     :  integer j 

HOLD_CHARACTER  :  character > 

SKIP  :  boolean  J 

CONTINUE        :  boolean > 
begin 

CLEARSCREEN^ 

put(  "******5^*****^»*********"  )  i   new_line(  2  )  i 

CONVERT_UPPER_CASE( DATA_FILE_NAME ,  DATA_FILE_SIZE ) } 
for  DECLARE_TYPE  in  VARIABLE_DECLARE . .NO_DECLARE  loop 
SKIP  :=  FALSE > 
CONTINUE  :=  FALSE  I 
case  DECLARE_TYPE  is 

when  VARIABLE_DECLARE  => 

put("   VARIABLES  for  file  -  ")} 
when  CONSTANT_DECLARE  => 

put("   CONSTANTS  for  file  -    ")i 
when  NO_DECLARE        => 

put("   GLOBAL  VARIABLES  for  file  -    ")i 
when  others  =>   nulli 

end  casev 

put(ADJUST_LEXEME(DATA_FILE_NAME,  DATA_FILE_SIZE  ) ) }  new_line(2)> 
putC'NAME                                        REFERENCED")  J  new_line> 
put(  " "  )j  new_linej 


while  not  (SKIPl  loop 

for  I  in  0. . ( LAST_ENTRY_INDEX-1)  loop 


NAME 
SIZE 
COUNT 


=  SYMBOL_TABLE ( I ) . LEXEME_ADORESS . OPERAND  > 
=  SYMBOL_TABLE ( I ) . LEXEME_ADDRESS . SIZE  v 
=  SYMBOL_TABLE(I).REFERENCEv 
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if  (SYMBOL_TABLE(I),DECLARATION_TYPE  =  DECLARE.TYPE  )  then 
put( ADJUST_EDIT_BUFFER( NAME ,  SIZE  ) )  i 
put( COUNT,  5)>  new_line5 

SCREEN.COUNTER  :=  SCREEN_COUNTER  +  1> 
if  (SCREEN_COUNTER  =  10)  then 
new_line( 3 ) i 

put("       Enter  'S'  to  stop  or  any  other  letter  to")> 

put( "  continue  ")> 

new_line> 

get( HOLD.CHARACTER ) i 

if  (HOLD_CHARACTER  =  'S')  or  ( HOLD_CHARACTER  =  's")  then 

SKIP  :=  TRUEj 
end  i  f  > 
CLEARSCREENv 
case  OECLARE_TYPE  is 

when  VARIABLE_DECLARE  => 

put("   VARIABLES  for  file  -  "U 
when  CONSTANT_DECLARE  => 

put("   CONSTANTS  for  file  -  ")) 
when  NO_DECLARE       => 

putt"   GLOBAL  VARIABLES  for  file  -  ")j 
when  others  =>  nullv 

end  casei 

put(ADJUST_LEXEME(DATA_FILE_NAME,  DATA_FILE_SIZE )  )  >  new_line(2)i 
putC'NAME  REFERENCED" n 

new_line» 

put(" "); 

new_line> 

SCREEN_COUNTER  :=  Ov 
end  if'>  —  if  screen_counter  =  10 

end  ifv  —  if  symboi_tablei i  ).declaration_type 

if  (I  =  LAST_£NTRY_INDEX  -  1)  then 

CONTINUE  :=  TRUE > 
end  ifv  --  if  i  =  last_entry_index-l 

exit  when  SKIPj 
end  loop>  —  for  i  in  0. . ( last_entry_index-l ) 

new_line> 

exit  when  ((SKIP)  or  (CONTINUE ))> 
end  loop}  —  while  not  skip  loop 

exit  when  SKIP) 
new_line} 

put( "  Enter  any  letter  to  continue  ")j 

new_line> 

get( HOLD.CHARACTER ) \ 
CLEARSCREEN} 
SCREEN_COUNTER  :=  0) 
end  loop}  —  for  declare_type  in 

CLEARSCREEN} 

put( "=====================================================================")} 

new_line(2)} 

put(ADJUST_EDIT_BUFFER( "Total  number  of  operands  used",  29))} 

put(LAST_ENTRY_INDEX  -  1,  5)}  new_line} 

put(ADJUST_EDIT_BUFFER( "Total  number  of  occurences,  all  operands",  <*0))} 

put(TOTAL_OPERAND_COUNT,  5)}  new_line(3)} 

put( "  Enter  any  letter  to  continue  ")} 

new_line} 

get(HOLD_CHARACTER)} 
end  VIEW_VARIABLES} 


—  this  procedure  displays  the  Halstead  operand  metric  data  for 
tasks,  and  blocks, 
procedure  VIEW_BLOCKS  is 

SCREEN_COUNTER  :  integer  :=  0} 
NAME  :  stringd.  .LINESIZE)> 

SIZE,  COUNT     :  integer} 
HOLD_CHARACTER  :  character} 
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begin 

CLEARSCREENj 

put(  "******9(*****9(9*j(*w**9****"  )  J  new_line(  2  )  > 

CONVERT_UPPER_CASE( DATA_FILE_NAME ,  DATA_FILE_SIZE  )  > 
for  DECLARE_TYPE  in  TASK_DECLARE . .BLOCK_DECLARE  loop 
case  DECLARE_TYPE  is 
when  TASK_DECLARE  => 

pu-tC   TASKS  for  file  -    ")i 
when  BLOCK_DECLARE  => 

put("  BLOCKS  for  file  -  ")> 
when  others  =>  null( 

end  case} 

put( ADJUST_LEXEME(DATA_rILE_NAME,  0ATA_FILE_SI2E  )  )  j  new_line(2)j 
putC'NAME                                      REFERENCED"  )i  new_line> 
pu-t(  " "  )  i    new_linev 

for  I  in  0. .(LAST_ENTRY_IN0EX-1]  loop 

NAME   :=  SYMBOL_TABLE(I  ).LEXEME_ADDRESS.OPERANDl 
SIZE   :=  SYMBOL_TABLE(I).LEXEME_AD0RESS.SIZE> 
COUNT  :=  SYMB0L_TABLE1I).REFERENCE> 

if  (SYMBOL_TABLE(I).DECLARATION_TYPE  =  DECLARE_TYPE )  then 
put( ADJUST_EDIT_BUFFER( NAME  ,  SIZE  )  )  \ 
putl COUNT,  5)}  new_linev 
SCREEN_COUNTER  :=  SCREEN_COUNTER  +  1\ 
if  (SCREEN.COUNTER  =  10)  then 
new_line( 3  )  i 

put( "  Enter  any  letter  to  continue  ")> 

new_linev 

get( HOLD.CHARACTER ) V 

CLEARSCREENi 

SCREEN_COUNTER  :=    Qi 

case  DECLARE_TYPE  is 

when  TASK_DECLARE    => 

put( "   TASKS  for  file  -  ")> 
when  BLOCK_DECLARE   => 

put("  BLOCKS  for  file  -  ")j 
when  others         =>  nullv 
end  case) 

put( ADJUST_LEXEME( DATA_FILE_NAME ,  DATA_FILE_SIZE ) ) J  new_line( 2  )  J 
putC'NAME  REFERENCED")  J 

new_linej 

putt  " "  )  i 

new_linej 
end  if  J  —  if  screen_counter  =  10 

end  if  I  —  if  symbol_table( i  ).declaration_type 

end  loopj  —  for  i  in  0. . ( last_entry_index-l ) 

new_line( 2 )  ( 

put( "  Enter  any  letter  to  continue  ")j 

new_line> 

get( HOLD_CHARACTER )  i 
CLEARSCREENj 
SCREEN_COUNTER  :=  Oj 
end  loop  J  —  for  declare_type  in 

end  VIEW_BLOCKSj 


—  this  procedure  calculates  and  displays  all  of  the  variables  used  in 

evaluation  of  the  Halstead  length  metric.   The  conclusions*  which  are 
determined  from  the  calculated  lengths,  are  based  on  Halstead' s 
observations, 
procedure  METRIC_CONCLUSIONS  is 

HOLD_CHARACTER  :  character} 

LITTLE_N1,  LITTLE_N2,  BIG_N1,  BIG_N2  :  integer > 

LOG_RESULT,  DIFFERENCE,  DISPARITY  :  float} 

ADD_RESULT  :  integer} 
begin 
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CLEARSCREEN} 

open(DATA_FILE<+,  in_file,  DATA_FILE_NAME  S  ".hals")> 

get(DATA_FILE4,  LITTLE_N1,  BU 

get(DATA_FILE'+,  BIG_N1 ,  5)\ 

get(DATA_FILE'^,  LITTLE_N2,  BH 

get(DATA_FILE'+,  BIG_N2 ,  5)i 

ADD.RESULT  :-   BIG_N1  +  BIG_N2> 

LOG_RESULT  :=  ( f loat( LITTLE.Nl )  *  L0G2( f loatJ LITTLE.Nl ) ) )  + 

(■float(LITTLE_N2)  *  L0G2(  float!  LITTLE_N2  )))  > 
DIFFERENCE  :=  LOG.RESULT  -  f loat( ADD.RESULT n 
DISPARITY  :=  DIFFERENCE  /  f  loa-t(  TOTAL_LINES_INPUT  )  j 

pu+(  "Definition  of  Haistead  variables"U  new_linet 

put(  "    ni  -  number  of  distinct  operators" U  new_linev 

put("     nZ  -  numoer  of  distinct  ooerands"  '  5  new_linei 

put( "    Nl  -  total  number  3f  occurences  of  operators"  ;i  new_linei 

put( "    N2  -  total  number  of  occurences  or   operands" H  new_linet2)» 

put(ADJUST_EDIT_3UFFER( "Theoretical  Length  nl5*log(nl)  +  n2*log( n2 J ;" ,  ^4  ) ) » 
put( LOG_RESULT,  5,  1,  0)i    new_iinev 

put(AOJUST_EDIT_BUFFER( "Actual  Length  Nl  +  N2l",  23 ) ) > 
put(AOO_RESULT,  5)i  new_line(2)> 

put( ADJUST_EDIT_BUFFER( "Difference  between  theoretical  and  actual",  ■+1)  )  v 
put( DIFFERENCE,  5,  I,  0);  new_linev 

put(ADJUST_:DIT_ BUFFER! "Disparity  i Difference  /  Total_iines_input )" ,  42)1; 
put!  DISPARITY,  3,  1,  OX,    new_Iine(2U 


if  ((DISPARITY  >  0.5  5  and  (DISPARITY  <=  1.0))  then 


put 
put 
put 
put 
put 
put 
put 
put 

elsif 
put 
put 
put 
put 
put 
put 
put 
put 

elsif 


put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 


very  large  positive  disparity.  Reasons:" n  new_linet 
I  -  POSSIBILITY  OF  OPERANDS  DECLARED  BUT  NOT  USED  '); 


new  imei 


"      There  my  oe  some  variaDies  which  were  declared  "U  new_iinei 

"      but  never  referenced  in  the  program");  new_line> 

"   2  -  USE  OF  GLOBAL  VARIABLES.");  new_line; 

"      A  large  number  of  the  variables  referenced  were  ");  new_line; 

"      declared  in  the  package  instantiations  by  the  ")}  new_linej 

"      WITH  statements."))  new_line5 

(DISPARITY  >  0.0)  and  (DISPARITY  <=  0.5))  then 

"A  small  positive  disparity.   Reasons:  ")j  new_line; 

"   1  -  SOME  OF  THE  OPERANDS  DECLARED  WERE  NOT  USED  ")}  new_linej 

"      There  my  be  some  variables  which  were  declared  ");  new_line; 

"      but  never  referenced  in  the  program");  new_linev 

"   2  -  SOME  USE  OF  GLOBAL  VARIABLES.  ");  new_line; 

"      A  large  number  of  the  variables  referenced  were  "1;  new_line; 

"      declared  in  the  package  instantiations  by  the  ");  new_line; 

"      WITH  statements.");  new_line) 

(DISPARITY  >  -0.5)  and  (DISPARITY  <=  0.0))  then 
new_line; 

put("         Enter  any  character  to  continue 

get( HOLD.CHARACTER ) ; 
CLEARSCREEN; 


);  new_line> 


'A  small  negative  disparity.   By  Halstead's  standards*  this  is  "); 

'a  well  polished  program.  ");  new_line; 

'However  there  may  exist  any  of  the  following:  ");  new_line; 

'   1  -  CANCELLING  OF  OPERATORS  ");  new_line; 

'      The  occurence  of  an  inverse  cancels  the  effect  of  a  "  ) ; 

'previous  operator.");  new_line; 

'   2  -  AMBIGUOUS  OPERANDS  ");  new_line; 

'      Same  operand  represents  two  or  more  variables.");  new_line; 

'   3  -  SYNONYMOUS  OPERANDS  ");  new_line; 

'      Two  or  more  operands  represent  the  same  variable.");  new_line; 

•  4  -  COMMON  SUBEXPRESSION  ");  new_line; 

'      The  same  subexpression  occurs  more  than  once.  ");  new_line; 

'  5  -  UNNECESSARY  REPLACEMENTS  ");  new.line; 

'      A  subexpression  is  assigned  to  a  temporary  ");  new_line; 

'      variable  which  is  used  only  once.  ");  new_line; 

'   6  -  UNFACTORED  EXPRESSIONS  ");  new_line; 

'      Repetitions  of  operators  and  operands  among  unfactored  ")j 

'terms.  ");  new_line; 
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else 

new_linej 

put("         Enter  any  character  to  continue  ")}  new_linej 

get(HOLD_CHARACTER)i 

CLEARSCREENi 

put( "A  large  negative  disparity.   Halstead  gives  six  reasons:  ")j  new_line) 

putC   1  -  CANCELLING  OF  OPERATORS  ")i    new_linev 

putt"      The  occurence  of  an  inverse  cancels  the  effect  of  a  "1> 

put ( "previous  operator.");  new_line> 

put("   2  -  AMBIGUOUS  OPERANDS  "U  new_linev 

put( "      Same  operand  represents  two  or  more  variables.");  new_line; 

put("   3  -  SYNONYMOUS  OPERANDS  ");  new.linei 

put( "      Two  or  more  operands  represent  the  same  variable.");  new_line; 

put("   ^  -  COMMON  SUBEXPRESSION  ");  new_iinev 

put("      The  same  subexpression  occurs  more  chan  once.  ");  new_line; 

put("   5  -  UNNECESSARY  REPLACEMENTS  "1;  new_iine; 

put( "      A  subexpression  is  assigned  to  a  temporary  ");  new_line; 

put( "      variable  which  is  used  only  once.  ");  new_line; 

put("   6  -  UNFACTORED  EXPRESSIONS  ');  new_iinei 

put( "      Repetitions  of  operators  and  operands  among  unfactored  "); 

put ("terms.  ");  new_iine; 
end  i  f ; 
new_line; 

put("         Enter  any  character  to  continue  ");  new_line; 

getl HOLD_CHARACTER  ) ; 
ciose(DATA_FILE4); 
end  METRIC  CONCLUSIONS; 


—  this  function  comoutes  the  log  to  T:he  oase  Z  of  a  numoer  by  using 
natural  logarithms. 
function  LCG2( NUMBER  :  float)  return  float  is 

X,  Y  :  float; 
begin 

X  :=  NATURAL_LOG( NUMBER); 

Y  :=  NATURAL_LOG( 2.0); 

return  (X/Y); 
end  L0G2; 


—  this  function  computes  the  natural  logarithm  of  a  number, 
function  NATURAL_LOG( NUMBER  :  float)  return  float  is 
A     :  constant  array  (0..S)  of  float 

:=  (0.68629150E+00,  0  .  673^1785E-02,  0. 1189'+142E-03  , 

0.25009347E-05,  0 .57260501E-07,  0. 13791205E-08  ) ; 


XP, 

Y         : 

float; 

M 

integer; 

BO, 

Bl,  B2    : 

float; 

begin 

XP 

:=  NUMBER; 

if 

(XP  <  0.0)  then 

raise  DEVICE 

_ERROR; 

enc 

1  if; 

M  : 

=  0; 

whi 

le  (XP  >=  2. 
M  :=  M  +  1; 

0 )  loop 

XP  :=  XP/2.0; 

enc 

loop; 

Y  : 

=  3.0  *  (XP 

-  1.0)/(XP  + 

1.0); 

XP 

:=  <t.O  *  Y  * 

'  (Y  -  2.0); 

BO 

:=  0.0; 

Bl 

:=  0.0; 

for  I  in  reverse  5..0  loop 
B2  :=  Bl; 
Bl  :=  BO; 
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BO  :=  XP  *  Bl  -  B2  +  A(I)J 
end  loop  i 

return  (floa-t(M)  *  0.6931't718  +  Y  *  (BO  -  Bl))> 
end  NATURAL_LOGj 

end  HALSTEAD_DISPLAY> 
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-***********i«t******W*****9***J(****J********9«(*****»****«**»****** 


-  TITLE; 


AN  ADA  SOFTWARE  METRIC 


MODULE  NAME: 
DATE  CREATED: 
LAST  MODIFIED: 


INITIAL_DISPLAY 
05  OCT  86 
03  DEC  86 


~   AUTHORS: 


LCDR  JEFFREY  L.  NIEDER 
LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:   This  package  contains  the  procedures  that 
introduce  the  metric  program  and  manages  the  data 
files. 

with  DISPLAY_SUPPORT,  PARSER_0,  HALSTEAD.METRIC ,  GLOBAL.PARSER,  GLOBAL,  TEXT_IO> 
use  DISPLAY_SUPPORT,  PARSER_0,  HALSTEAD.METRIC ,  GLOBAL_PARSER,  GLOBAL,  TEXT_IO> 

package  INITIAL_DISPLAY  is 

procedure  INITIAL_SCREEN> 

procedure  INTRODUCTION > 
end  INITIAL_DISPLAY> 


package  body  INITIAL_DISPLAY  is 

—  this  procedure  opens  all  data  -files  for  the  input  file,  starts  the 

the  parsing  process,  writes  the  metric  data  to  the  appropriate  files, 
closes  the  data  files,  and  prompts  the  user  for  further  input  files 
to  parse, 
procedure  INITIAL_SCREEN  is 

DONE  :  boolean > 
begin 

FINISHED  :=  FALSER 
while  not  FINISHED  loop 
DONE  :=  FALSE  V 
open(RESULT_FILE,  out_file,  "RESULTS. ADA" )j 

GET_FILENAME( TYPE_PRESENT ) J 


if  (TYPE_PRESENT) 
open(TEST_FILE 
createC  DATA_FI 
create( DATA_FI 
create! DATA_FI 
create! DATA_FI 

else 

open(TEST_FILE 
create! DATA_FI 
create! DATA_FI 
create! DATA_FI 
create! DATA_FI 

end  i  f ) 


then 
,  in.file,  TEST_FILE_NAME  )  > 

LEI,  out_file,  DATA_FILE_NAME  &  ".data")j 

LE2,  out_file,  DATA_FILE_NAME  S  ".misc")> 

LE5,  out_file,  DATA_FILE_NAME  S  " . rand"  )  > 

LE-^,  out_file,  DATA_FILE_NAME  &  ".hals")j 

,  in_file,  TEST_FILE_NAME  S  ".ada")j 

LEI,  out_file,  DATA_FILE_NAME  &  ".data")) 

LE2,  out_file,  DATA_FILE_NAME  8.  ".misc")v 

LE3,  out.file,  DATA_FILE_NAME  S  ".rand")) 

LE4,  out.file,  DATA_FILE_NAME  &  ".hals")) 


INITIALIZE_OPERAND_LIST! DATA_FILE_NAME ,  HEAD_NODE ) ) 

if  I  COMPILATION)  then 
new_linei 
CLEARSCREEN) 

put! "»««««»««»»»««»«»«»«««««»»»««»»»»«»»«»tt»««4»»tt«" ) ) 
put! "»»tt?»«»«»«»»«tt8«»«»«»8«««ff »»«»»»»»«"  )  i    new_line) 
put!"»  ")) 

put!"  »"))  new_line) 

put!"tt  Parse  of  Ada  program")) 

put!"  complete  »"))  new_line) 


82 


pu-t("  #")j  new_linev 

put(  "»»««<t»»<«»8««»»»««««««»«««?t«»«»4»«»*;»»»»»»««««»"  )\ 

put(  "»«««$«*«»«tt«»«»?f»»«tt«?f»»4f«S«»»4t»»«»"  ) }  new_line> 
else 

putC  "Attemp-ting  to  parse  a  non_conip liable  program"  H 
end  i  -f  > 
new_line( 3  )  v 

WRITE_0PERAT0R_TABLE(DATA_FILE1,  DATA_FILE2,  DATA_FILE<+ )  > 

WRITE_0PERAND_TABLE(DATA_FILE3,  DATA_FILE4)) 

WRITE _NESTING_T ABLE ( DATA_FILE2  i \ 

close(DATA_FILEl); 
close(DATA_PILE2n 
close!  DATA_FILE3)-, 
close(DATA.FILE'+  li 
close(RESULT_FILEn 


close(TEST_FILE)i 
while  not  (DONE)  loop 


new_ 

putt 

put( 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 

put 


line( 2)1 

f +  +++++++++  +  +  +  ■*++++  +  ++++•*  +  "  ) ;    new_linei 
+ 

*")i    new_linev 
+  The   program  has   completed    ihe   parse   of   your 


input  -file 


N) 

+ 


+  "  )  i  new_!.ine5 

+  "  )  i    new_linet 
Oo  you  want  to  parse  another  file  ?  ( Y/ 
+"  )  >  new_iine> 

+")>  new_linei 
Type  'Y'  for  YES  and  'N'  for  NO 
+"))  new_linej 


+")V  new_line> 
+++++++++++++++++++++++++++++++++++++++++++++++++++++ 
++++++++++++++++++++++++++" ) i  new_line( 2 ) i 
Answer  :  " ) v 


GET_ANSWER( ERROR , FINISHED ) J 

get_line( INPUT_FILE_NAME ,  LENGTH_OF_LINE  )  \ 

new_linej 

RESET_PARAMETERS> 


flush  system  input 
buffer 


if  ERROR  then 
new_line( 2 )\ 

put! " I  I  I  I  I  I M I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  It  I  I  I  I  I  I  I  I  I  I  I  I 
putC'MIII  I  lllllllllllll  lllll")(  new_line> 
put(" 

put("  ")\   new_linej 

put("   You  either  omitted  or  improperly  entered  your  'Y 
put( "  or  'N'  answer  ")i    new_linei 

put( "  Please  Try  Again 

putt"  ")>  new_linei 

putt" 

putt"  ")J  new_linei 

putt"|||||||||||||||||||||||||||||lllllllllllllllllllll 
put t " I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I ")  i  new.line i 
else 

TRUEj 

~  if  ERROR 
—  while  not  done 
—  outer  while  loop 


DONE 
end  i  f  J 
end  loop) 
end  loop) 
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end  INITIAL_SCREENj 


—  "this  procedure  produces  "the  initial  screen  displayed  to  the  user 
procedure  INTRODUCTION  is 

HOLD_CHARACTER  :  character) 
begin 

CLEARSCREEN) 


put 
put 
put 
put 
put 
put 
put 
put 
pui 
pux 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 


"»*****9t******5^*^*****"  )j  new_linej 


"> 


"» 


*"  1 )  new_iine J 

WELCOME  TO   AdaMEASURE' 
*"  !  i    new_linev 


"* 


USN 


AUTHORED  BY: 


"* 


USN 


new_iinev 
LCDR  ^EFFREY 
new_linei 
LT   KARL  S. 
*" U  new_linev 


L.  NIEDER 


FAIRBANKS 


"* 


"* 


*"  ) )  new_line) 

NAVAL  POSTGRADUATE  SCHOOL 
*"  ^  \    new_linet 
DEPARTMENT  OF  COMPUTER  SCIEN 
*"  1  \    new_linev 

MONTEREY,  CALIFORNIA 
*")\    new_line> 

*"  U  new_line5 

31  OCTOBER  1986 
»"  H  new_line> 


*"  )  \    new_linei 

VERSION 
*")\   new_linev 


1.0 


*")>  new_line) 
"*  This  program  provides  an  automated  software 
"metric   tool  which  *"]\   new_linej 
"*  uses  quantitative  measures  in  an  effort  to  su 
"pply  the  user  with  *"  )  >  new_line) 
"»  helpful  information  about  the  static  structur 
"e  of   a  given  input  *"  )  j  new_line> 

'*  program.   This  program  is  public  domain  infor 

'mation.  *")i    new_line) 

'  *"))  new_line) 

"»*^*****»************" ) J  new_line( 2  ) ) 

Enter  any  letter  to  continue 

new_linej 

get( HOLD_CHARACTER ) j 
end  INTRODUCTION) 


-■•n 


end  INITIAL_DISPLAYj 
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—  TITLE:  AN  ADA  SOFTWARE  METRIC 

—  MODULE  NAME:     PACKAGE  LOW_LEVEL_SCANNER 

—  DATE  CREATED:    06  JUN  86 

—  LAST  MODIFIED:  0'^   NOV  86 

—  AUTHORS:        LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

DESCRIPTION:   This  package  contains  six  of  the  seven 

—  procedures  used  to  identify  the  toKen  types.   The 

—  seventh  procedure,  used  to  identify  numeric  literals 
is  contained  in  package  NUMERIC. 

with  NUMERIC,  GET_NEXT_CHARACTER,  GLOBAL > 
use  NUMERIC,  GET_NEXT_CHARACTER,  GLOBAL} 

package  LOW_LEVEL_SCANNER  is 

procedure  GET_IDENTIFIER( TOKEN_RECORD:  in  out  TOKEN_RECORD_TYPE  )  j 
procedure  FLUSH_SEPARATORS( TOKEN_RECORD:   in  out  TOKEN_RECORD_TYPE  )  > 
procedure  GET_DELIMITER( TOKEN.RECORO:   in  out  TOKEN_RECORD_TYPE  ) } 
procedure  FLUSH_COMMENT( TOKEN_RECORO :   in  out  TOKEN_RECORD_TYPE  )  > 
procedure  GET_CHARACTER_LIT( TOKEN_RECORD :   in  out  TOKEN_RECORD_TYPE n 
procedure  GET_STRING_LIT( TOKEN_RECORD:   in  out  TOKEN_RECORD_TYPE  )  > 

end  LOW_LEVEL_SCANNER» 


package  body  LOW_LEVEL_SCANNER  is 

—  an  identifier  can  be  any  number  of  letters  or  digits  following  the 

—  first  letter,  with  a  single  underscore  allowed  between  any  pair 

—  of  letters  and/or  digits 

procedure  GET_IDENTIFIER(TOKEN_RECORD  :  in  out  TOKEN_RECORD_TYPE )  is 

DONE  :  boolean  :=  FALSE > 
begin 

while  (not  DONE)  loop 

—  store  the  character  in  the  lexeme  buffer 

—  and  increment  the  lexeme  pointer 
TOKEN_RECORD.LEXEME(LEXEME_LENGTH)  :=  NEXT_CHARACTER> 
LEXEME_LENGTH  :=  LEXEME_LENGTH  +  1> 

if  ( ( LOOKAHEAD_ONE_CHARACTER  in  UPPER_CASE_LETTER  )  or 
( LOOKAHEAD_ONE_CHARACTER  in  LOWER_CASE_LETTER  )  or 
( LOOKAHEAD_ONE_CHARACTER  in  DIGITS_TYPE  ) )  then 
GETNEXTCHARACTERC  NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER ) \ 

elsif  ( ( LOOKAHEAD_ONE_CHARACTER  =  '_')  and  ( NEXT_CHARACTER  =  '_*))  then 
ERROR_MESSAGE(TOKEN_RECORD.TOKEN_TYPE)v   --  two  consecutive  underscores 

--  are  not  allowed 

elsif  ( LOOKAHEAD_ONE_CHARACTER  =  '_')  then 

GETNEXTCHARACTERt  NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER )  i 

else 

DONE  :=  TRUE  J    —  identifier  token  accepted 
end  i  f  i 
end  loop( 
end  GET_IDENTIFIERi 


this  procedure  removes  all  the  separators,  which  are  delineated 
in  GLOBAL,  from  the  input  code 
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procedure  FLUSH_SEPARATORS(TOKEN_RECORD  :  in  ou-t  TOKEN_RECORD_TYPE )  is 

DONE  :  boolean  :=  FALSE > 
begin 

while  (not  DONE)  loop 

TOKEN_RECORD. LEXEME! LEXEME_LENGTH)  :=  NEXT_CHARACTER> 
LEXEME_LENGTH  :=  LEXEME.LENGTH  +  li 
if  ( ( LOOKAHEAD_ONE_CHARACTER  =  '  '  )  or 
(  (charac-ter'pos(LOOKAHEAD_ONE_CHARACTER)  in  FORMATORS )  and 
( LOOKAHEAD_ONE_CHARACTER  /=  ASCII.CR)))  then 
GETNEXTCHARACTER( NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  )  j 
else 

DONE  :=  TRUE}   —  completed  -flushing  of  separators 
end  i  f  j 
end  loop  v 
end  FLUSH_SEPARAT0RS4 


—  this  procedure  identifies  both  the  simple  and  compound  delimiters 
which  are  delineated  in  GLOBAL 

procedure  GET_DELIMITER( T0KEN_RECORD  :  in  out  TOKEN_RECORD_TYPE  )  is 
begin 

—  store  the  character  in  the  lexeme  buffer 
--  and  increment  the  lexeme  pointer 
TOKEN_RECORD. LEXEME (LEXEME.LENGTH)  :=  NEXT_CHARACTER> 
LEXEME_LENGTH  :=  LEXEME_LENGTH  +  Iv 

if  ( (character 'pos(NEXT_CHARACTER)  in  COMPOUND_DELIMITER  )  or 
(NEXT_CHARACTER  =  ' . ' )  or  ( NEXT.CHARACTER  =  '*')  or 
( NEXT.CHARACTER  =  ' : *  )  or  ( NEXT_CHARACTER  =  '/'))  then 

if  ( (character 'pos( LOOKAHEAD_ONE_CHARACTER)  in  COMPOUNO.DELIMITER  )  or 

( LOOKAHEAD_ONE_CHARACTER  =  ' .  '  )  or  ( LOOKAHEAD_ONE_CHARACTER  =  •*'))    then 
GETNEXTCHARACTERI NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  ) } 
TOKEN_RECORD. LEXEME (LEXEME.LENGTH)  :=  NEXT_CHARACTER> 
LEXEME_LENGTH  :=  LEXEME_LENGTH  +  1\ 
end  i  f  i 
end  i  f  i 
end  GET_DELIMITERj 


—  this  procedure  removes  all  the  comments  from  the  input  code 

all  comments  start  with  a  --  and  end  with  a  carriage  return 

procedure  FLUSH_COMMENT(TOKEN_RECORD  :  in  out  TOKEN_RECORD_TYPE )  is 

DONE  :  boolean  :=  FALSE} 
begin 

GETNEXTCHARACTER( NEXT_CHARACTER,  LOOKAHEAD_ONE_CHARACTER  )  i 
while  (not  DONE)  loop 

if  ( LOOKAHEAD_ONE_CHARACTER  =  ASCII.CR)  then 

DONE  :=  TRUE}   —  end  of  comment 
else 

GETNEXTCHARACTER( NEXT.CHARACTER ,  LOOKAHEAD_ONE_CHARACTER ) } 
end  i  f i 
end  loop } 
end  FLUSH_COMMENTj 


—  this  procedure  identifies  an  individual  character 

forma tors  are  not  allowed  to  be  character  literals 

procedure  GET_CHARACTER_LIT(TOKEN_RECORD  :  in  out  TOKEN_RECORD_TYPE )  is 

STATE  :  positive  :=  1} 

DONE  :  boolean  :=  FALSE} 
begin 
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while  (not  DONE)  loop 
case  STATE  is 

—  store  the  character  in  the  lexeme  buffer 

—  and  increment  the  lexeme  pointer 

when  1  =>  TOKEN_RECORD. LEXEME (LEXEME_LENGTH)  :=  NEXT_CHARACTERj 
LEXEME_LENGTH  :=  LEXEME_LENGTH  +  li 

if  ( LOGKAHEAD.ONE  .CHARACTER  =  •")  then 

STATE  :=  2v 

GETNEXTCHARACTER(NEXT_CHARACTER,  LOOKAHEA0_ONE_CHARACTER )  v 
elsif  ( character 'pos( LQOKAHEAD_ONE_CHARACTER  ) 

in  FORMATORS)  then 

ERROR_MESSAGE(TOKEN_RECORD.TCKEN_TYPE  )\ 
else 

STATE  :=  :•, 

GETNEXTCHARACTER(NEXT_CHARACTER,  LOOKAHEAO_ONE_CHARACTER  )  i 
end  1  f ', 

when  2  =>   if  ( LOOKAHEA0_0NE_CHARACTER  =  ' ' ■ )  then 

--  store  the  character  in  the  lexeme  buffer 
--  and  increment  the  lexeme  pointer 

TOKEN_RECGRD. LEXEME ( LEXEME.LENGTH)  :=  NEXT_CHARACTER V 

LEXEME_LENGTH  :=  LEXEME_LENGTH  +  1', 

GETNEXTCHARACTER( NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  )  i 

TOKEN_RECORD.LEXEMElLEXEME_LENGTH)  :=  NEXT.CHARACTER > 

else 

—  one  single  quote  found,  classify  as  accent  marK 

change  toKen  type  from  character  literal  to  delimiter 
rOKEN_RECORD.:OKEN_TYPE  :=  DELIMITER; 
MEXT_BUFFER_INOEX  :=  CURRENT_3UFFER_INDEX5 
end  I f ; 
DONE  ;=  TRUEi 

when  others  =>  nullv 
end  case; 
end  loop  > 
end  GET_CHARACTER_LIT> 


—  this  procedure  identifies  a  string  which  is  a  sequence  of  zero  or 
more  characters  between  double  quotes 

procedure  GET_STRING_LIT(TOKEN_RECORD  :  in  out  TOKEN_RECORD_TYPE  )is 
STATE  :  positive  :=  li 
DONE  :  boolean  :=  FALSE j 
begin 

while  (not  DONE)  loop 

—  store  the  character  in  the  lexeme  buffer 
--  and  increment  the  lexeme  pointer 
TOKEN_RECORD. LEXEME (LEXEME_LENGTH)  :=  NEXT_CHARACTER> 
LEXEME_LENGTH  :=  LEXEME_LENGTH  +  1> 

case  STATE  is 

when  1  =>   if  ( LOOKAHEAD_ONE_CHARACTER  =  ""  )  then 

STATE  :=   Zi      —  two  consecutive  quotes  seen 
else 

STATE  :=  4>   —  one  or  more  characters  in  the  string 
end  if  J 
GETNEXTCHARACTER( NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  )  J 

when  2  =>  if  ( LOOKAHEAD_ONE_CHARACTER  =  •"•)  then 

STATE  :=   Zi  --    three  consecutive  quotes  seen 

GETNEXTCHARACTER( NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  )  > 

else 

DONE  :=  TRUE  J   —  string  of  zero  characters  accepted 

end  if) 
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when  3  =>   if  ( LOOKAHEAD_ONE_CHARACTER  =  ""  )  then 

GETNEXTCHARACTERI NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  1  j 
TOKEN_RECORD. LEXEME! LEXEME_LENGTH)  :=  NEXT_CHARACTER> 
LEXEME_LENGTH  :=  LEXEME_LENGTH  +  Iv 
DONE  :=  TRUE  I   —  four  consecu-kive  quofes 

--  string  of  one  printable  quote  accepted 

else 

STATE  :=  <ti 

GETNEXTCHARACTER( NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  )  \ 

end  i  f  i 

when  <*  =>   if  (  LOGKAHEAD_ONE_CHARACTER  =  ""  )  then 

STATE  :=   5i 

3ETNEXTCHARACTER( NEXT_CHARACTSR ,  LOOKAHEAD_ONE_CMARACTER ) i 
aisif  1 cnaraGxer'Dos(NEXT_CHARACTER)  in  "ORMATORS )  then 

cRRORJIESSAGE ( TOKEN_SECORD . TOKEN_TYPE  )  \ 
else 

GETNEXTCHARACTERI  NEXT_C'HARACTER ,  L0OKAHEA0_ONE_CHARACTER  )  v 
end  i  f  t 

when  S  =>   if  ( LOCKAHEAD_ONE_CHARACTER  =  '" '  )  then 

STATE  :=  6i 

GETNEXTCHARACTERI NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  )  \ 
else 

30NE  :=  TRUEi      —  string  literal  accepted 
and  I  f  i 

when  6  =>   if  ( LOOKAHEAD.ONE .CHARACTER  =  ' '"  1  then 

STATE  :=    5\ 

GETNEXTCHARACTER( NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  )  5 
else 

STATE  :=  <^i 

3ETNEXTCHARACTER( NEXT_CHARACTER ,  LOOKAHEAD  _ONE_CHARACTER  )  \ 
end  i  f  i 

when  others  =>  null} 
end  case) 
end  loop ) 
end  GET_STRING_LIT > 

end  LOW_LEVEL_SCANNERv 
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—  TITLE: 


AN  ADA  SOFTWARE  METRIC 


MODULE  NAME: 
DATE  CREATED: 
LAST  MODIFIED: 


MENU.DISPLAY 
11  OCT  86 
01  DEC  86 


■-  AUTHORS: 


LCDR  JEFFREY  L.  NIEDER 
LT  KARL  S.  FAIRBANKS,  JR. 


—  DESCRIPTION:   This  package  contains  the  procedures  that 

—  produce  the  menus  which  allow  the  user  to  select  a 

—  specific  'AdaMeasure'  operation. 

with  GENERAL_DATA,  HALSTEAD.OISPLAY ,  INITIAL_DISPLAY ,  DISPLAY_SUPPORT , 

GLOBAL_PARSER,  GLOBAL,  TEXT_IOi 
use  GENERAL_DATA,  HALSTEAO_DISPLAY ,  INITIAL_DISPLAY,  DISPLAY_SUPPORT, 
GLOBAL_PARSER,  GLOBAL,  TEXT_IO> 

package  MENU_DISPLAY  is 

procedure  MENU> 

procedure  INITIAL_MENUi 

procedure  VIEW_HENRY> 
end  MENU_DISPLAYi 


package  body  MENU_OISPLAY  is 

—  this  procedure  displays  the  metric  selection  menu  from  which  the  user 
can  make  the  appropriate  selection, 
procedure  MENU  is 

DONE  :  boolean  :=  FALSE i 
begin 

while  not  DONE  loop 
CLEARSCREENj 
new_linei 

'***j(*****^^9(*»*9f*9(***9(**" ) }  new_line> 

*")j  new_line) 

METRIC  SELECTION  MENU 
*")>  new_linei 

*")j  new_line> 
HERE  ARE  THE  INFORMATION  CHOICES  AVAILABLE 
*"  ) )  new_linei 

*")\   new_line> 
Simply  enter  the  number  of  your  choice 
*")\   new_linej 

»"  1 J  new_linej 

1  -  'HALSTEAD'  METRIC  INFORMATION 
*")>  new_line> 

*")\   new_line) 

2  -  COMMENT  AND  NESTING  METRIC  INFORMATION 
*")j  new_line> 

*")>  new_line) 

3  -  'HENRY  and  KAFURA"  METRIC  INFORMATION 
*")j  new_line> 

*" )  V  new_linei 


put( 

"9(**9(***- 

putt 

"***J(***- 

put( 

"* 

put( 

II 

put( 

"* 

put 

II 

put 

"* 

put 

II 

put 

"* 

put 

••  TO  YOU 

put 

••* 

put 

" 

put 

"X 

put 

It 

put 

•■* 

put 

II 

put 

"* 

put 

II 

put 

"* 

put 

" 

put 

•■* 

put 

II 

put 

••* 

put 

" 

put 

"* 

put 

M 

put 

"^ 

put 

M 
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put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
put 
get 


4  -  EXIT  TO  MAIN  MENU 

*")j  new_line> 

*")>  new_line> 

5  -  EXIT  TO  OPERATING  SYSTEM 

*")l  new_line> 


■* 


*")}  new_line> 

"*9(*****5efx*************"  )  i   new_line(  2  )  \ 

"Choice  =  ")5 
[ ANSWER )> 

get_line(DUMMY_FILE_NAME,  LENGTH_OF_LINE  ) }   --  flush  system  input  buffer 
new_linel 2  )  i 
case  ANSWER  is 


when 

•1' 

=  > 

HALSTEAOi 

when 

'2' 

=  > 

VIEW_GENERALi 

when 

■3- 

=  > 

VIEW_HENRYv 

when 

•^' 

=  > 

DONE  :=  TRUE* 

when 

'5' 

=  > 

raise  QUIT_TO_OSj 

when  others  =>  nullj 
end  case^ 
end  loop  i 
end  MENUi 


—  this  procedure  displays  the  main  selection  menu  which  allows  the  user 
to  choose  to  parse  a  file>  view  previously  gathered  data*  or  quit  to 
the  operating  system. 
procedure  INITIAL_MENU  is 

DONE  :  boolean  : =  FALSE > 
begin 

INTRODUCTION > 
while  not  DONE  loop 
CLEARSCREENj 
new_line> 


pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 
pu 

ge 


*9M(*********«******»***"  )  J  new_line» 

*")$  new_linei 
^  MAIN  SELECTION  MENU 

*")>  new_linej 

»")j  new_line> 

*  HERE  ARE  THE  ACTION  CHOICES  AVAILABLE  TO 
YOU  *"n  new_line) 

*")i    new_line) 
^  Simply  enter  the  number  of  your  choice 

^")i   new_linej 

*" )  J  new_linej 

*  1  -  PARSE  AN  INPUT  FILE 

*"  )  (  new_linev 
* 

»")j  new_linej 

*  2  -  VIEW  PREVIOUSLY  GATHERED  DATA 

*")>  new_line> 

»")j  new_linei 

*  3  -  EXIT  TO  OPERATING  SYSTEM 

*")>  new_linei 

*")>  new_line} 

9**********»**«*************^(***********»*i*»***  ********** 
***********************"  )  >  new_line( 2  )  ( 
Choice  =  ")j 
ANSWER)) 
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ge-t_line(DUMMY_FILE_NAME,  LENGTH_OF_LINE  )  j   ~  flush  system  input  buffer 
new_line( 2 )  i 
case  ANSWER  is 

when  "l"  =>  RESET.PARAMETERSi 

INITIAL_SCREENj 
MENUi 
when  '2'  =>  MENUi 
when  '3'  =>  raise  QUIT_TO_OSj 
when  others  =>  null} 
end  case> 
end  loop  i 
end  INITIAL_MENUi 


--  this  procedure  is  just  3  piacehoider  -or  the  iniDiementation  of  the 
Henry  and  Kafura  complexity  flow  mexric. 
procedure  VIEW_HENRY  is 

HOLD_CHARACTER  :  cnaractari 
begin 

CLEARSCREENi 

new_line> 

new_linei  2  )  j 

put( "This  software  metric  has  not  yet  been  implemented  into  this")i 

new_linet 

put( "program.  It  is  hopea  -hat  this  information  will  oe  aadeo  in" U 

new_linei 

put(  "the  very  near  future.  "H 

new_iinel 2 ) » 

put( "=================================================================" 1 ; 

new_iine( 2 ) i 

put( "  enter  any  letter  to  continue ')j 

new_line  > 

getlHOLD_CHARACTERJi 
end  VIEW_HENRYv 


end  MENU.DISPLAY) 
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APPENDIX  D 
'ADAMEASURE'  PROGRA^[  LISTING  -  PART  2 


—  TITLE: 

—  MODULE  NAME: 

—  DATE  CREATED: 

—  LAST  .10DIFIED: 

—  AUTHORS: 


AN  ADA  SOFTWARE  METRIC 

PACKAGE  HALSTEAD_METRIC 

0^  OCT  36 
01  OEC  86 

LCDR  ^ErFREY  L.  NIEDER 
LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:  This  pacKage  con+ains  all  of  "the  declarations 
and  data  structures  required  by  our  metric ^  as  well  as 
all  necessary  procedures  and  functions  for  gathering 

and  storing  the  metric  data. 


with  3L0BAL,  GLOBAL_?ARSE.^ ,  BYPAS3_SUPP0RT_FUNCTI0NS,  TEXT.IO) 
use  GLOBAL,  GL08AL_?ARS£R ,  3YPAS3_3UPP0RT_FUNCTI0NS,  T£XT_I0> 

package  HALSTEAD_METRIC  is 

pacKage  NEW_INTEGER_:Q  is  new  'EXT_:0.INTEGER_I0( integer  )  i 
use  N£W_INTEGER_:0> 


SCOPE.ON 

:  constant 

boolean 

= 

TRUE) 

3C0PE_0FF 

:  constant 

boolean 

3 

FALSE) 

PACKAGE_DECLARE 

:  constant 

integer 

s 

0} 

PROCEDURE.DECLARE 

:  constant 

integer 

= 

1) 

FUNCTION_DECLARE 

:  constant 

integer 

= 

Z\ 

TASK_DECLARE 

:  constant 

integer 

= 

3j 

BLOCK_DECLARE 

:  constant 

integer 

= 

-^J 

VARIABLE.DECLARE 

:  constant 

integer 

= 

s> 

CONST ANT_DECLARE 

:  constant 

integer 

= 

6v 

NO_DECLARE 

:  constant 

integer 

= 

7j 

IF_CONSTRUCT 

:  constant 

integer 

= 

Oj 

LOOP_CONSTRUCT 

:  constant 

integer 

= 

1) 

WHILE_CONSTRUCT 

:  constant 

integer 

= 

2> 

FOR_CONSTRUCT 

:  constant 

integer 

= 

3> 

CASE_CONSTRUCT 

:  constant 

integer 

= 

4> 

IF_END 

:  constant 

integer 

= 

S) 

LOOP_END 

:  constant 

integer 

= 

6) 

CASE_END 

:  constant 

integer 

= 

7) 

NUMBE  R_0  F_OP  E  RANDS 
FIRST_LEVEL_NEST 
MAXIMUM  NESTING 


:  constant  integer  :=  500) 
:  constant  integer  :=  Ij 
:  constant  integer  :=  15) 


type  OPERATOR_ARRAY_TYPE  is 

array  ( TOKEN_AND. .TOKEN_ASSIGNMENT  )  of  integer) 

type  OPERAND_TYPE) 
type  LINK  is  access  OPERAND_TYPE) 
type  OPERAND_TYPE  is 
record 

OPERAND  :  string( 1. .LINESIZE )) 

SIZE  :  natural) 

NEXT_OPERAND      :  LINK) 
end  record) 
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type  OPERAND_MATRIX  is 
record 
SCOPE 
REFERENCE 
DECLARATION_TYPE 
LEXEME_ADDRESS 
end  record J 


integer  J 
integer  :=  Oi 
integer  J 
LINK  I 


type  HALSTEAD_OPERAND_ARRAY  is 

array(0. .NUMBER_OF_OPERANDS)  of  OPERAND_MATRIX) 

type  NESTED_COUNT_TYPE  is 

array(FIRST_LEVEL_NEST. .MAXIMUM_NESTING)  of  integerj 

type  CONSTRUCT_COUNT_TYPE  is 

array(IF_CONSTRUCT. .CASE_CONSTRUCT)  of  integerj 

OPERATOR_ARRAY  :  OPERATOR_ARRAY_TYPE  :=  ( TOKEN_AND . . TOKEN_ASSIGNMENT  =>  0)i 

NESTED_COUNT  :  NESTED_COUNT_TYPE  :=  ( FIRST_LEVEL_NEST. .MAXIMUM_NESTING  =>  Olj 

CONSTRUCT_COUNT  :  CONSTRUCT_COUNT_TYPE  :=  ( IF_CONSTRUCT. .CASE_CONSTRUCT  =>  0)) 


SYMBOL_TABLE 
HEAD_NODE,  NEW_NODE 

DECLARE_TYPE 

CURRENT_NESTING_LEVEL 

MAXIMUM_NESTING_1.EVEL 

TOTAL_OPERAND_COUNT 

NESTIN6_LINE_NUMBER 

SYMBOL_TABLE_INDEX 

SCOPE_LEVEL 

LAST_ENTRY_TNDEX 

NESTED_LEVEL_INCREASE 
NOITE RATION 


HALSTEAD_OPERAND_ARRAY  i 
LINKi 

integer  :=  VARIABLE_DECLARE j 

integer  :=  Ov 

integer  :=  0\ 

integer  :=  Ov 

integer  :=  Oi 

integer  :=  O5 

integers 

integer  J 

boolean  : =  TRUE  j 
boolean  :=  TRUE) 


procedure  OPERATOR_METRIC(OPERATOR_INDEX  :  in  integer i 

CONSUME,  RESERVE_WORD_TEST  :  in  boolean )) 
procedure  OPERAND_METRIC( HEAD_NODE  :  in  out  LINKj 

LEXEME.RECORD  :  in  out  TOKEN_RECORD_TYPE j 
DECLARE_TYPE  :  in  integer  )> 
procedure  INITIALIZE_OPERAND_LIST( DATA_FILE_NAME  :  in  out  strings 

HEAD.NOOE  :  in  out  LINK )  > 
procedure  ADD_SYMBOL( TEMP_NODE  :  in  out  LINKj  DECLARE_TYPE  :  in  integer )  J 
function  DUPLICATE_LEXEME( TEMP_NODE  :  in  LINK)  return  boolean) 
procedure  REFERENCE_UPDATE( SYMBOL_TABLE_INDEX  :  in  out  integer)} 
procedure  WRITE_OPERATOR_TABLE( OUTPUTl ,  OUTPUTS,  0UTPUT3  :  in  out  file_type)) 
procedure  WRITE_OPERAND_TABLE( OUTPUTl,  0UTPUT2  :  in  out  file_type)j 
procedure  NESTING_METRICINEST_TYPE  :  in  integer)) 
procedure  WRITE_NESTING_TABLE( OUTPUT_FILE  :  in  out  file_type)) 
end  HALSTEAD_METRIC) 


package  body  HALSTEAD_METRIC  is 

--  this  procedure  updates  the  operator  array  based  on  the  parsing  of  a 
—   valid  Halstead  operator, 
procedure  OPERATOR_METRIC(OPERATOR_INDEX  :  in  integer) 

CONSUME,  RESERVE_WORD_TEST  :  in  boolean)  is 
begin 

if  (CONSUME)  and  then  not  ( RESERVE_WORD_TEST )  then 

OPERATOR_ARRAY(OPERATOR_INDEX)  :=  OPERATOR_ARRAY( OPERATOR_INDEX)  +  1) 
end  if) 
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end  OPERATOR_METRICj 


—  this  procedure  builds  the  symbol  table  for  the  input  file,  and 

calls  the  appropriate  procedure  for  entering  or  updating  Halstead 
operand  information, 
procedure  OPERAND_METRIC( HEAD_NOOE  :  in  out  LINKv 

LEXEME.RECORD  :  in  out  TOKEN_RECORO_TYPE I 
DECLARE_TYPE  :  in  integer)  is 
TEMP.NODE,  TRAILER  :  LINK) 
INPUT_LEXEME  :  stringd.  .  LINESIZE  )  > 
FOUND  :  boolean > 
SIZE  :  naturals 
begin 

TRAILER  :=  HEAD.NOOE j 

TEMP.NODE  :=  HEAD.NODE .NEXT_OPERANDi 

INPUT_LEXEME  :=  LEXEME.RECORD . LEXEME > 

SIZE  :=  LEXEME_RECORD.LEXEME_SIZE  -  Ij 

FOUND  :=  FALSE  J 

while  (TEMP_NODE  /=  null)  loop 

if  (ADJUST_LEXEME(INPUT_LEXEME,  SIZE)  = 

ADJUST_LEXEME(TEMP_NODE. OPERAND,  TEMP_NODE .SIZE ) )  then 
FOUND  :=  TRUE  J 
else 

TRAILER  :=  TEMP_NODE > 
TEMP.NOOE  :=  TEMP_NODE.NEXT_OPERAND > 
end  i  f  > 

exit  when  FOUND j 
end  loop  i 
if  not  1  FOUND)  then 

NEW_NO0E  :=  new  OPERAND_TYPE v 
NEW_NODE. OPERAND  : =  INPUT_LEXEME v 
NEW_NO0E.SIZE  :=  LEXEME.RECORO. LEXEME_SIZE  -  Iv 
NEW_NODE.NEXT_OPERAND  :=  null) 
TRAILER. NEXT_OPERAND  :=  NEW_NO0E V 
TEMP_NO0E  :=  NEW_NODE > 
end  if) 
if  not  (DUPLICATE_LEXEME(TEMP_NODE))  then 

ADD_SYMBOL( TEMP_NODE ,  DECLARE_TYPE  )  i 
else 

REFERENCE_UPDATE(SYMBOL_TABLE_INDEX)> 
end  i  f \ 
end  OPERAND_METRICv 


—  this  procedure  initializes  the  head  node  for  the  symbol  table, 
procedure  INITIALIZE_OPERAND_LIST( OATA_FILE_NAME  :  in  out  string) 

HEAD_NODE  :  in  out  LINK)  is 
begin 

HEAD_NODE  :=  new  OPERAND_TYPE ) 

HEAD.NODE. OPERAND  :=  DATA_FILE_NAME) 

HEAD_NODE.NEXT_OPERAND  :=  null) 

SYMBOL_TABLE_INDEX  :=  0) 

SCOPE.LEVEL  :=  0) 

LAST_ENTRY_INDEX  :=  0) 
end  INITIALIZE_OPERAND_LIST) 


—  this  procedure  adds  all  of  the  information  about  a  variable  when 
it  is  initially  parsed, 
procedure  ADD_SYMBOL(TEMP_NODE  :  in  out  LINK)  DECLARE_TYPE  :  in  integer)  is 
begin 

SYMBOL_TABLE { LAST_ENTRY_INDEX ) . LEXEME_ADORESS  : =  TEMP_NODE ) 
if  (DECLARATION)  then 

SYMBOL_TABLE ( LAST_ENTRY_INDEX ) . DECLARATION_TYPE  : =  DECLARE_TYPE ) 
SYMBOL_T ABLE (LAST_ENTRY_INDEX). SCOPE  :=  SCOPE_LEVEL) 
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SYMBOL_T ABLE (LAST_ENTRY_INDEX). REFERENCE  :=  0} 
else  --  a  global  variable 

if  (DECLARE_TYPE  =  CONST ANT.DECLARE  )  then 

SYMBOL_TABLE ( LAST_ENTRY_INDEX ) . 0ECLARATION_TYPE 
else 

SYMBOL.TABLE ( LAST_ENTRY_INDEX ) . DECLARATION.TYPE 
end  i  f \ 

SYMB0L_TA3LE(LAST_ENTRY_INDEX). SCOPE  :=  Oj 
SYMBOL_T ABLE (LAST_ENTRY_INDEX PREFERENCE  :=    1\ 
end  i  i i 

LAST_ENTRY_INDEX  :=  LAST_ENTRY_INDEX  +  Ij 
end  ADD.SYMBOLj 


CONST AhTT.DECLARE  i 
NO_DECLAREi 


—  this  function  determines  if  the  current  ooerand  is  already  in  the 

symbol  table.   If  locatea.  "he  symbol  •^.able  index  is  set  to  the 

—  appropriate  position. 

function  DUPLICATE.LEXEMEl  TEMP_SIODE  :  in  LINK  1  return  boolean  is 


TEST_NAME 
INPUT_LEXEME 
INPUT_SIZE 
TEST.SIZE 
LOCATED 
begin 

LOCATED 
INPUT_LEXEME 
INPUT_SI2E 
for  I  in  0.  . 
TEST_MAME 
TEST_SIZE 
if 


stringd.  .  LINESIZ5  )  i 
stringd.  .  LINESI2E  U 
natural i 
natural > 
boo lean > 


FALSE  \ 

:-   TEMP_MODE. OPERAND; 
:=  TEMP_NO0E.SIZEl 
LAST_HNTRY_IN0EX-1)  loop 

:=  3YMB0L_TABLE(I  ). LEXEME .ADDRESS . OPERAND » 
:=  SYMBOL. ^ABLEi I i.uEXEME_iDDRES3. SIZE  V 
( ADJUST_LEXEME ( TEST .NAME  ,  -EST_SI2E  )  = 

ADJUST_LEXEME(INPUT_..£XEME,  INPUT.SIZE  )  i  then 
LOCATED  •=  TRUE; 

=  li 


SYMBOL_TABL=_IND£X 
end  i  f  i 

exit  when  LOCATED > 
end  loop( 
return  ( LOCATED  )  > 
end  DUPLICATE.LEXEMEj 


—  this  procedure  updates  the  reference  count  when  an  operand  is  parsed » 
after  initial  entry  into  the  symbol  table, 
procedure  REFERENCE_UPDATE( SYMBOL_TABLE_INDEX  :  in  out  integer)  is 
begin 

SYMBOL_TABLE ( SYMBOL_TABLE_INDEX  ) . REFERENCE  :  = 

SYMBOL.T ABLE! SYMBOL_TABLE_INDEX). REFERENCE  +  li 
TOTAL_OPERAND_COUNT  :=  TOTAL_OPERAND_COUNT  +  li 
end  REFERENCE_UPDATEi 


—  this  procedure  writes  the  Halstead  operator  count  data  to  the 
appropriate  files, 
procedure  WRITE_0PERAT0R_TABLE(0UTPUT1,  0UTPUT2,  0UTPUT3  :  in  out  file_type)  is 

OPERATORS_USED,  OCCURENCES  :  integer  :=  0\ 
begin 

for  I  in  TOKEN_AND. .TOKEN_ASSIGNMENT  loop 
if  (OPERATOR_ARRAY(I)  /=  0)  then 

OPERATORS.USED  :=  OPERATORS.USED  +  li 
OCCURENCES  :=  OCCURENCES  +  OPERATOR_ARRAY( I ) > 
end  i  f \ 

putCOUTPUTl,  OPERATOR_ARRAY(I),  5)> 
end  loop  i 
new_line(OUTPUTl)> 


for  I  in  IF_CONSTRUCT..CASE_CONSTRUCT  loop 
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if  (CONSTRUCT_COUNT(I)  /=  0)  then 

OPERATORS_USED  :=  OPERATORS_USED  +  Iv 
OCCURENCES  :=  OCCURENCES  +  CONSTRUCT_COUNT( I ) j 

end  i  f  j 

put(OUTPUTl,  COHSTRUCT_COUNT(I),  5)> 
end  loop  i 

put(OUTPUTl,  OPERATORS.USED,  5)s 
put(OUTPUTl,  OCCURENCES,  S)\ 

pui(0UTPUT2,  TOTAL_LINES_INPUT,  5)> 
put(0UTPUT2,  COMMENT_COUNT ,  SU 

put(  OUTPUTS,  OPERATORS_USED,  5U 
put(0UTPUT3,  OCCURENCES,  SH 

and  HRITE_0PERAT0R_TABLE5 


—  this  procedure  writes  the  Halstead  operand  inrormation  to  the 
appropriate  files. 
procedure  WRITE_OPERAND_TABLE( OUTPUTl ,  0UTPUT2  :  in  out  file.type)  is 
NAME  :  stringd.  .LINESIZEli 
SIZE  :  integer) 
begin 

put( OUTPUTl,  LAST_ENTRY_INDEX  -  1,  5)\ 
put(0UTPUTC,  LAST_£NTRY_INDEX  -  1,  5)i 
put( OUTPUTl,  TOTAL_OPERAND_COUNT,  5)i 
put(  OUTPUTS,  TOTAL_OPERAND_COUNT,  SU 
new_linei  OUTPUTl )  •, 
for  I  in  0. . i LAST_3NTRY_INDEX-1)  loop 

NAME  :=  3YMB0L_TABL£(I  ).LEXEME_4D0RESS.0PERAN0i 

SIZE  :=  3YMB0L_TA8LE(I).L£XEME_ADDRE3S.SIZH; 

put( OUTPUTl,  3YMB0L_TA8LE(I ).SCOPE,  5)v 

puttOUTPUTl,  3YMB0L_TABLE(  I  ). REFERENCE,  5U 

put( OUTPUTl,  SYMBOL_TABLE(I).DECLARATION_TYPE,  5)> 

CONVERT_UPPER_CASE(NAME,  SIZE)) 

put( OUTPUTl,  ADJUST_LEXEME(NAME,  SIZE))) 

new_line( OUTPUTl)) 
end  loop ) 
end  WRITE_OPERAND_TABLE ) 


—  this  procedure  maintains  the  maximum  nesting  level  attained,  the  number 
of  times  each  nesting  level  is  reached,  and  the  number  of  times  each 
nesting  construct  is  utilized, 
procedure  NESTING_METRIC(NEST_TYPE  :  in  integer)  is 
begin 

case  NEST_TYPE  is 

when  IF_CONSTRUCT    LOOP_CONSTRUCT    WHILE_CONSTRUCT 
FOR_CONSTRUCT    CASE_CONSTRUCT 

=  >  CONSTRUCT_COUNT(NEST_TYPE)  :=  CONSTRUCT_COUNT( NEST_TYPE )  +  1) 
NESTED_LEVEL_INCREASE  :=  TRUE) 

CURRENT_NESTING_LEVEL  :=  CURRENT_NESTING_LEVEL  +  1) 
if  (CURRENT_NESTING_LEVEL  >  MAXIMUM_NESTING_LEVEL )  then 
MAXIMUM_NESTING_LEVEL  :=  CURRENT_NESTING_LEVEL ) 
NESTING_LINE_NUMBER  :=  TOTAL_LINES_INPUT) 
end  if) 

when  IF_END    LOOP.END    CASE_END  => 

if  (NESTED_LEVEL_INCREASE)  then 

NESTED_COUNT( CURRENT_NESTING_LEVEL )  : = 
NESTED_COUNT(CURRENT_NESTING_LEVEL)  +  1) 
NESTED_LEVEL_INCREASE  :=  FALSE) 

end  if) 

CURRENT_NESTING_LEVEL  :=  CURRENT_NESTING_LEVEL  -  1) 
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when  others  =>  nulli 
end  case( 
end  NESTING_METRICv 


—  this  procedure  writes  the  nesting  metric  data  to  the  appropriate  file, 
procedure  HRITE_NESTING_TABLE(  OUTPUT_FILE  :  in  out  file_type)  is 
begin 

new_line( OUTPUT_FILE 1 > 

for  I  in  IF_CONSTRUCT. .CASE_CONSTRUCT  loop 
put(OUTPUT_FILE,  CONSTRUCT_COUNT( I ) ,  5)i 

end  loop ) 

new_line( OUTPUT.FILE  )  j 

put(OUTPUT_FILE,  MAXIMUM_NESTING_LEVEL ,  Sn 

new_line( OUTPUT_FILc ) > 

PUT (OUTPUT_ FILE,  NESTIN6_LINE_NUMBER ,  5)} 

new_line( OUTPUT_FILE  )  > 

for  I  in  FIRST_LEVEL_NEST. .MAXIMUM_NESTING  loop 
put(OUTPUT_FILE,  NESTED_COUNT( I  ) ,  5)> 

end  loop  > 
end  WRITE_NESTING_TABLE) 


end  HALSTEAD.METRICj 
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—  TITLE:  AN  ADA  SOFTWARE  METRIC 

—  MODULE  NAME:     PACKAGE  NUMERIC 

—  DATE  CREATED:    13  JUN  86 

—  LAST  MODIFIED:  0^   NOV  86 

—  AUTHORS:         LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

—  DESCRIPTION:   This  package  is  used  to  identify  the  following  — 

numeric  types:  integer,  real,  based  integer,  and 

—  scientific  notation. 

with  GLOBAL,  GET_NEXT_CHARACTER> 
use  GLOBAL,  GET_NEXT_CHARACTER} 

package  NUMERIC  is 

procedure  GET_NUMERIC_LIT( TOKEN_RECORD  :  in  out  TOKEN_RECORD_TYPE  )  J 
end  NUMERIC  I 


package  body  NUMERIC  is 

procedure  GET_NUMERIC_LIT( TOKEN.RECORD  :  in  out  TOKEN_RECORD_TYPE )  is 

DONE  :  boolean  :=  ,-ALSc> 

STATE  :  positive  : =  1; 
begin 

while  (not  DONE)  loop 

--  store  the  character  in  the  lexeme  buffer 

—  and  increment  the  lexeme  pointer 
TOKEN_RECORD. LEXEME (LEXEME_LENGTH)  :=  NEXT_CHARACTERv 
LEXEME_LENGTH  :=  LEXEME_LENGTH  +  Ij 

—  each  option  in  the  case  statement  is  a  state  in  the  finite 

—  state  automata  for  determining  numeric  literals.  Ada  allows 

—  the  use  of  the  underscore  to  aid  readability  of  long  numeric  literals 
case  STATE  is 

when  1  =>   if  ( LOOKAHEAD_ONE_CHARACTER  in  DIGITS_TYPE )  then 

STATE  :=  1> 

GETNEXTCHARACTER(NEXT_CHARACTER,  LOOKAHEAD_ONE_CHARACTER ) J 
elsif  ( LOOKAHEAD_ONE_CHARACTER  =  '.')  then 

STATE  :=  25 

GETNEXTCHARACTER(NEXT_CHARACTER,  LOOKAHEAD_ONE_CHARACTER ) > 
elsif  ( ( LOOKAHEAD_ONE_CHARACTER  =  'E')  or 

( LOOKAHEAD_ONE_CHARACTER  =  'e'))  then 

STATE  :=  17l 

GETNEXTCHARACTERC  NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER ) J 
elsif  ( LOOKAHEAD_ONE_CHARACTER  =  '_' )  then 

STATE  :=  95 

GETNEXTCHARACTERC  NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER ) i 
elsif  ( ( LOOKAHEAD_ONE_CHARACTER  =  '»')  or 

( LOOKAHEAD_ONE_CHARACTER  =  ' :  '  )  )  then 

STATE  :=  10  5 

GETNEXTCHARACTER( NEXT_CHARACTER ,  LOOKAHEA0_ONE_CHARACTER  )  5 
elsif  ( ( LOOKAHEAD_ONE_CHARACTER  not  in  UPPER_CASE_LETTER )  and 

( LOOKAHEAD_ONE_CHARACTER  not  in  LOWER_CASE_LETTER )  and 

(  LOOKAHEAD_ONE_CHARACTER  /=  "  '  )  and 

( LOOKAHEAD_ONE_CHARACTER  /=  ""  ) )  then 

DONE  :=  TRUE  5         —  universal  integer  accepted 
else 

ERROR_MESSAGE ( TOKEN_RECORD . TOKEN_TYPE ) 5 
end  i  f  5 
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when  2  =>   if  I LOOKAHEAD_ONE_CHARACTER  =  '.•)  then   --test  for  range  dots 
TOKEN_RECORD. LEXEME ( LEXEME_LENGTH  -  1)  :=  '  '} 
LEXEME_LENGTH  :=  LEXEME_LENGTH  -  Ij 
NEXT_BUFFER_INDEX  :=  CURRENT_BUFFER_INDEXj 

DONE  :=  TRUE >    —  universal  integer  preceded  these 

—  range  dots 
elsif  ( LOOKAHEAD_ONE_CHARACTER  in  DIGITS.TYPE  )  then 

STATE  ;=  3> 

GETNEXTCHARACTER( NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER ) i 
else 

ERROR_MESSAGE ( TOKEN.RECORD . TOKEN_TYPE ) i 
end  i  f  i 
when  3  =>   if  ( LOOKAHEAD_aNE_CHARACTER  in  OIGITS_TYPE  )  then 

STATE  :-    Z; 

GETNEXTCHARACTER( NEXT_CHARACTER ,  ,OOKAHEAD_0NE_CHARACTER ) i 
aisif  ;( LOOKAHEAO_ONE .CHARACTER  =   S'l  or 

' LOOKAHEA0_ONE_CHARACTER  =  'a'!)  then 

STATE  :=  <+i 

GETNEXTCHARACTER( NEXT_CHARACTER ,    i.OOKAHEAO_ONE_CHARACTER ) > 
elsif    ( LOOKAHEAD_ONE_CHARACTER    =    '_'l    then 

STATE    :=    5} 

GETNEXTCHARACTER( NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  >  i 
elsif  ( ( LOOKAHEA0_ONE_CHARACTER  not  in  UPPER_CASc_LETTER  )  and 

(LOOKAHEAD_ONE_CHARACTER  not  in  LOWER_CASE_LETTER )  and 

(LOOKAHEAD_ONE .CHARACTER  .=  "''^  and 

(LOOKAHEA0_ONE_CHARACTER  /=  ""  )  I  then 

GONE  :=  TRUE i        —  universal  real  accepted 
else 

5RR0R_>1ESSAGE  I  TOKEN_RECORD .  TOKEN.TYPE  ) ; 
end  i  f  s 
when  •*    ->       if  (  (  LOOKAHEA0_ONE_CHARACTER  =  '  * '  !  or 

(  LOOKAHEAD_ONE_CHARACTER  =  '-'n  then 

STATE  :=  6> 

GETNEXTCHARACTERI NEXT_CHARACTER ,  LOOKAHEA0_ONE_CHARACTER ) > 
elsif  ( LOOKAHEAD_ONE_CHARACTER  in  DIGITS_TYPE  )  then 

STATE  :=  7j 

GETNEXTCHARACTER( NEXT_CHARACTER,  LOOKAHEAD_ONE_CHARACTER ) \ 
else 

ERROR_MESSAGE ( TOKEN_RECORD . TOKEN_TYPE ) } 
end  i  f  j 
when  5  6  8  9  => 

if  ( LOOKAHEAD_ONE_CHARACTER  in  DIGITS_TYPE )  then 

case  STATE  is 

when  5  =>  STATE  :=  3j 
when  6  8  =>  STATE  :=  7v 
when  9  =>  STATE  :=  1} 
when  others  =>  null( 

end  case ( 

GETNEXTCHARACTER( NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  )  > 
else 

ERROR_MESSAGE ( TOKEN_RECORD . TOKEN_TYPE ) i 
end  i  f \ 
when  7  =>   if  ( LOOKAHEAD_ONE_CHARACTER  in  DIGITS_TYPE )  then 

STATE  :=  7> 

GETNEXTCHARACTER(NEXT_CHARACTER,  LOOKAHEAD_ONE_CHARACTER )j 
elsif  ( LOCKAHEAD_ONE_CHARACTER  =  '_')  then 

STATE  :=  8> 

GETNEXTCHARACTER( NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER ) \ 
elsif  ( ( LOOKAHEAD_ONE_CHARACTER  not  in  UPPER_CASE_LETTER )  and 

( LOOKAHEAD_ONE_CHARACTER  not  in  LOHER_CASE_LETTER )  and 

( LOOKAHEAD_ONE_CHARACTER  /=  "  ' )  and 

( LOOKAHEAD_ONE_CHARACTER  /=  '" '  ) )  then 

DONE  :=  TRUE  J    —  integer  or  real  in  scientific  notation 
else 

ERROR_MESSAGE ( TOKEN_RECORD . TOKEN_TYPE ) j 
end  if ( 
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when  10  12  1<+  16  => 

if  ( ( LOOKAHEAD_ONE_CHARACTER  in  DIGITS.TYPE  )  or 

( LOOKAHEAD_ONE_CHARACTER  in  UPPER_CASE_HEX  )  or 

( LOOKAHEAD_ONE_CHARACTER  in  LOWER_CASE_HEX  ) )  then 

case  STATE  is 

when  10  12  =>  STATE  :=  Hi 
when  1<+  16  =>  STATE  :=  15> 
when  others  =>  nullv 

end  case( 

GETNEXTCHARACTERl NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER ) i 
else 

ERROR_MESSAGE ( TOKEN_RECORD . TOKEN_TYPE  )  J 
end  i  f ; 
when  11  =>  if  ( ( LOOKAHEAD_ONE_CHARACTER  in  DIGITS. TYPE  1  or 

!  LOOKAHEAD^ONE  .CHARACTER  in  UP"PER_CASE_HEX  )  or 

1  LOOKAHEAD_ONE_CHARACTER  in  LCWER_CASE_:HEX  ))  then 

STATE  :=  ilv 

GETNEXTCHARACTER( NEXT.CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  )  5 
aisif  I  LOOKAHEAD_ONE_CHARACTER  =  ' . '  )  then 

STATE  :=  l^*; 

GETNEXTCHARACTERl NEXT_CHARACTER ,  LOCKAHEAD_ONE_CHARACTER  )  \ 
elsif  ( ( LOOKAHEAD_ONE_CHARACTER  =  '«*)  or 

(LOOKAHEAD_ONE_CHARAC.^ER  =  ':'))  then 

STATE  :=  13v 

GETNEXTCHARACTERl NEXT.CHARACTER,  LOOKAHEAO.ONE.CHARACTER  !  V 
alsif  ( LOOKAHEA0_0NE_CHARACTER  =  '_')  then 

STATE  ;=  12  5 

GETNEXTCHARACTERl NEXT.CHARACTER  ,  LOOKAHEAD_ONE .CHARACTER  )  \ 
else 

£RROR_MESSAGE ( TOKEN.RECORO . TCKEN_TYPE  ) ; 
end  1.  f  <, 
when  13  =>  if  ( ( LOOKAHEAD_ONE_CHARACTER  =  'E'l  or 

( LOOKAHEA0_0NE .CHARACTER  =  "9'))  then 

STATE  :=  17-, 

GETNEXTCHARACTERl  NEXT.CHARACTER ,  LOOKAHEAO.ONE.CHARACTER  ) « 
eisif  ( ( LOOKAHEAD.CNE.CHARACTER  not  in  UPPER.CASE.LETTER )  and 

(LOOKAHEAO.ONE.CHARACTER  not  in  LOWER_CASE_LETTER )  and 

( LOOKAHEAO.ONE.CHARACTER  /=  "  '  )  and 

(LOOKAHEAO.ONE.CHARACTER  /=  '"•))  then 

DONE  : =  TRUE i  —  based  integer  accepted 

else 

ERROR_MESSAGE(TOKEN.RECORD.TOKEN.TYPE)> 
end  i  f  > 
when  15  =>  if  ((LOOKAHEAO.ONE.CHARACTER  in  OIGITS.TYPE )  or 

(LOOKAHEAO.ONE.CHARACTER  in  UPPER.CASE.HEX )  or 

(LOOKAHEAO.ONE.CHARACTER  in  LOWER.CASE.HEX ) )  then 

STATE  :=  15> 

GETNEXTCHARACTER( NEXT.CHARACTER ,    LOOKAHEAO.ONE.CHARACTER  )  J 
elsif    (LOOKAHEAO.ONE.CHARACTER   =    '_'  )    then 

STATE    :=    16> 

GETNEXTCHARACTER( NEXT.CHARACTER ,  LOOKAHEAO.ONE.CHARACTER  )  J 
elsif  ((LOOKAHEAO.ONE.CHARACTER  =  '«' )  or 

( LOOKAHEAO.ONE.CHARACTER  =  ' : '  ) )  then 

STATE  :=  13) 

GETNEXTCHARACTER( NEXT.CHARACTER ,  LOOKAHEAO.ONE.CHARACTER  )  J 
else 

ERROR.MESSAGE ( TOKEN.RECORD . TOKEN.TYPE  ) » 
end  i  f I 
when  17  =>  if  (LOOKAHEAO.ONE.CHARACTER  in  OIGITS.TYPE)  then 

STATE  :=  7j 

GETNEXTCHARACTER( NEXT.CHARACTER ,  LOOKAHEAO.ONE.CHARACTER  )  J 
elsif  (LOOKAHEAO.ONE.CHARACTER  =  '+')  then 

STATE  :=  6> 

GETNEXTCHARACTER( NEXT.CHARACTER ,  LOOKAHEAO.ONE.CHARACTER  )  J 
else 

ERROR.MESSAGE! TOKEN_RECOR0.TOKEN_TYPE)> 
end  i  f ) 
when  others  =>  null> 
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end  case( 
end  loop  i 
end  GET_NUMERIC_LITj 

end  NUMERIC  J 
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—  TITLE:  AN  ADA  SOFTWARE  METRIC 

—  MODULE  NAME:     PACKAGE  PARSE R_0 
~   DATE  CREATED:    09  OCT  86 

~   LAST  MODIFIED:   03  DEC  86 

—  AUTHORS:         LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

—  DESCRIPTION:   This  package  contains  eight  functions  that 

make  up  the  highest  level  productions  -for  our  top-down,  -- 

—  recursive  descent  parser. 

with  PARScR_l,  PARSER_2,  PARSER_3,  BYPASS_FUNCTICN,  HALSTEAD_METRIC , 

GLOBAL_PARSER,  GLOBAL,  TEXT_IOv 
use  PARSER.!,  PARSER_2,  PARSER_3,  BYPASS_FUNCTION,  HALSTEAD_METRIC , 
GLOBAL_PARSER,  GLOBAL,  TEXT_IO> 

package  PARSE R_0  is 

■function  COMPILATION  return  boolean j 

function  COMPILATION_UNIT  return  boolean j 

function  CONTEXT_CLAUSE  return  boolean^ 

function  BASIC_UNIT  return  boolean v 

function  LIBRARY_UNIT  return  boolean > 

function  SECONDARY_UNIT  return  boolean j 

function  LIBRARY_UNIT_BO0Y  return  boolean > 

function  SUBUNIT  return  boolean y 
end  PARSER.Oj 


package  body  PARSE R_0  is 

--  COMPILATION  ~>   [COMPILATION_UNIT]  + 
function  COMPILATION  return  boolean  is 
begin 

put("In  compilation  ")i   new_linej 
if  (COMPILATION_UNIT)  then 

while  (COMPILATION_UNIT)  loop 

null  J 
end  loop  j 
return  (TRUE)i 
else 

return  ( FALSE )j 
end  i  f  i 
end  COMPILATION  I 


—  COMPILATION_UNIT  — >   CONTEXT_CLAUSE   BASIC_UNIT 
function  COMPILATION_UNIT  return  boolean  is 
begin 

if  (CONTEXT_CLAUSE)  then 
if  (BASIC_UNIT)  then 

return  (TRUE)) 
else 

return  ( FALSE  )  i 
end  i  f  > 
else 

return  (FALSE)) 
end  i  f ) 
end  COMPILATION_UNITj 
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~  CONTEXT_CLAUSE  — >   [with  WITH_OR_USE_CLAUSE  [use  HITH_OR_USE_CLAUSE ]*  ]* 
•function  CONTEXT_CLAUSE  return  boolean  is 
begin 

while  (  BYPASS!  TOKEN_WITHn  loop 

if  not  (WITH_OR_USE_CLAUSE)  then 

SYNTAX_ERROR( "Context  clause"  )  \ 
end  i  f  i 
while  (BYPASS(TOKEN_USE))  loop 

if  not  (WITH_OR_USE_CLAUSE)  then 

SYNTAX_ERROR( "Context  clause"  )  > 
end  i  f  j 
end  loopi  —  inner  while  loop 

end  loopj  —  outer  while  loop 

return  (TRUE  )v 
end  CONTEXT  CLAUSE > 


--  BASIC_UNIT  -->   LIBRARY.UNIT 

-->   SECONDARY_UNIT 
function  BASIC_UNIT  return  boolean  is 
begin 

if  ( LIBRARY_UNIT  )  then 

return  (TRUE  )i 
els  if  (SECONDARY_UNIT)  then 

return  ( TRUE  ) } 
else 

return  ( FALSE  )  i 
end  if; 
end  BASIC_UNIT> 


—  LIBRARY_UNIT  -->   procedure  PROCEDURE_UNIT 
— >   function  FUNCTION_UNIT 
— >   package  PACKAGE_DECLARATION 
-->   generic  GENERIC_DECLARATION 
function  LIBRARY_UNIT  return  boolean  is 
begin 

if  (BYPASS(TOKEN_PROCEDURE))  then 

DECLARE_TYPE  :=  PROCEDURE_DECLARE ) 
if  (PROCEDURE_UNIT)  then 

return  (TRUE)> 
else 

SYNTAX_ERROR( "Library  unit")> 
end  i  f  j 
els  if  (BYPASS(TOKEN_FUNCTION))  then 
DECLARE_TYPE  :=  FUNCTION_DECLARE > 
if  ( FUNCTION_UNIT )  then 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Library  unit"!) 
end  i  f  j 
elsif  (BYPASS(TOKEN_PACKAGE))  then 
DECLARE_TYPE  :=  PACKAGE_DECLARE } 
if  (PACKAGE_DECLARATION)  then 

return  (TRUE)j 
else 

SYNTAX_ERROR( "Library  unit")) 
end  i  f i 
elsif  (BYPASS(TOKEN_GENERIC))  then 
if  (GENERIC_DECLARATION)  then 

return  (TRUE)j 
else 

SYNTAX_ERROR( "Library  unit")) 
end  i  f ) 
else 

return  (FALSE)) 


-  if  procedure_unit  statement 


—  if  function_unit  statement 


—  if  package_declaration 


-  if  generic_declaration 
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end  i  f  j 
end  LIBRARY_UNIT J 


~  SECONDARY_UNIT  — >   LIBRARY_UNIT_BODY 
— >  SUBUNIT 
function  SECONDARY_UNIT  re-turn  boolean  is 
begin 

if  ( LIBRARY_UNIT_BODY )  then 

return  (TRUE)> 
els if  (SUBUNIT)  then 

return  (TRUE)> 
else 

return  ( FALSE U 
end  i  f  > 
end  SECONDARY_UNIT> 


—  LIBRARY_UNIT_BODY  — >  procedure  PROCEDURE_UNIT 
-->   function  FUNCTION_UNIT 
— >  package  PACKAGE_DECLARATION 
~>  generic  GENERIC_DECLARATION 
function  LIBRARY_UNIT_BODY  return  boolean  is 
begin 

if  (BYPASS(TCKEN_PROCEDURE ) )  then 

DECLARE_TYPE  :=  PROCEDURE_DECLARE > 
if  (PROCEDURE_UNIT)  then 

return  ( TRUE  )  i 
else 

SYNTAX_5RR0R( "Library  unit  body" ) v 
end  if  5  —  if  procedure_unit  statement 

elsif  ( BYPASS! TOKEN_FUNCTION ) )  then 
DECLARE.TYPE  :=  FUNCTION_DECLARE » 
if  ( FUNCTION_UNIT )  then 

return  (TRUE)> 
else 

SYNTAX_ERROR( "Library  unit  body"  )  i 
end  if)  —  if  function_unit  statement 

elsif  (BYPASS(TOKEN_PACKAGE))  then 
DECLARE_TYPE  :=  PACKAGE.DECLARE v 
if  (PACKAGE_DECLARATION)  then 

return  (TRUE  )v 
else 

SYNTAX_ERROR( "Library  unit  body")> 
end  if>  —  if  package_declaration 

else 

return  (FALSE)) 
end  if>  —  if  bypassC token_procedurel 

end  LIBRARY_UNIT_BODY> 


~  SUBUNIT  — >  separate  (NAME)  PROPER_BODY 
function  SUBUNIT  return  boolean  is 
begin 

if  (BYPASS(TOKEN_SEPARATE))  then 

if  (BYPASS(TOKEN_LEFT_PAREN))  then 
if  (NAME)  then 

if  (BYPASS(TOKEN_RIGHT_PAREN))  then 
if  (PROPER_BODY)  then 

return  (TRUE)> 
else 

SYNTAX_ERROR( "Subunit" )> 
end  if  I  —  if  proper_body  statement 

else 

SYNTAX_ERROR( "Subunit" ) i 
end  ifv  —  if  bypass( token_right_paren) 
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else 

SYNTAX_ERROR( "Subunit" )j 
end  if  J  —  if  name  statement 

else 

SYNTAX_ERROR( "Subunit" ) i 
end  if>  —  if  bypass ( token_left_paren) 

else 

return  ( FALSE  )  > 
end  if  J  —  if  bypass! token_sepa rate  ) 

end  SUBUNIT > 

end  PARSER_Oj 


105 


—  TITLE:  AN  ADA  SOFTWARE  METRIC 

—  MODULE  NAME:     PACKAGE  PARSER.l 

—  DATE  CREATED:    17  JUL  86 

—  LAST  MODIFIED:   03  DEC  86 

—  AUTHORS:         LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

DESCRIPTION:   This  package  contains  thir'ty-six  funciions 

that  make  up  the  top  level  productions  for  our  top-down. -- 
— "        recursive  descent  parser.  Each  function  is  preceded 
by  the  grammar  productions  they  are  implementing. 

— **9**j(***«**a*3*******  »**»************»************?(-»  ********»»^*»-- 

with  PARSER_2,  PARSER_S,  BYPASS_FUNCTION,  HALSTEAD_METRIC ,  GLOBAL.PARSER, 

GLOBAL  J 
use  PARSER_2,  PARSER_3,  BYPASS.FUNCTION,  HALSTEAD_METRIC,  GLOBAL_PARSER, 
GLOBAL  i 

package  PARSER_1  is 

function  GENERIC_DECLARATION  return  boolean^ 

function  GENERIC_PARAMETER_DECLARATION  return  boolean^ 

function  GENERIC_FORMAL_PART  return  booleanv 

function  PROCEDURE_UNIT  return  boolean^ 

function  SUBPROGRAM_BODY  return  boolean) 

function  FUNCTION_UNIT  return  boolean > 

function  FUNCTION_UNIT_TAIL  return  boolean* 

function  FUNCTION_300Y  return  booleani 

function  FUNCTI0N_300Y_TAIL  return  boolean) 

function  TASK_DECLARATION  return  boolean) 

function  TASK_BODY  return  booleani 

function  TASK_BOOY_TAIL  return  boolean) 

function  PACKAGE_DECLARATION  return  boolean) 

function  PACKAGE_UNIT  return  boolean) 

function  PACKAGE_BODY  return  boolean) 

function  PACKAGE_BODY_TAIL  return  boolean) 

function  PACKAGE_TAIL_END  return  boolean) 

function  DECLARATIVE_PART  return  boolean) 

function  BASIC_DECLARATIVE_ITEM  return  boolean) 

function  BASIC_DECLARATION  return  boolean) 

function  LATER_DECLARATIVE_ITEM  return  boolean) 

function  PROPER_BODY  return  boolean) 

function  SE(3UENCE_0F_STATEMENTS  return  boolean) 

function  STATEMENT  return  boolean) 

function  COMPOUND_STATEMENT  return  boolean) 

function  BLOCK_STATEMENT  return  boolean) 

function  IF_STATEMENT  return  boolean) 

function  CASE_STATEMENT  return  boolean) 

function  CASE_STATEMENT_ALTERNATIVE  return  boolean) 

function  LOOP_STATEMENT  return  boolean) 

function  EXCEPTION_HANDLER  return  boolean) 

function  ACCEPT_STATEMENT  return  boolean) 

function  SELECT_STATEMENT  return  boolean) 

function  SELECT_STATEMENT_TAIL  return  boolean) 

function  SELECT_ALTERNATIVE  return  boolean) 

function  SELECT_ENTRY_CALL  return  boolean) 
end  PARSER_1) 


package  body  PARSE R_l  is 

—  GENERIC_DECLARATION  — >   [GENERIC_PARAMETER_DECLARATION  ?] 

GENERIC_FORMAL_PART 
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function  GENERIC_DECLARATION  return  boolean  is 
begin 

if  (GENERIC_PARAMETER_DECLARATION)  then 

nullj 
end  i  f  \ 
if  (GENERIC_FORMAL_PART)  then 

return(TRUE)j 
else 

return  ( FALSE  )i 
end  i  f } 
end  GENERIC_DECLARATION> 


—  GENERIC_?ARAMETER_DECLARATION  — >   IDENTIFIER.LIST  :  [MODE  ?]  NAME 

[ : =  EXPRESSION  ? ]  ; 

—  >      type  private  CDISCRIMINANT.PART  ?] 

is  PRIVATE_7YPE_0ECLARATION  ; 

—  >      type  private  lDISCRIMINANT_PART  ?] 

is  GENERIC_TYPE_DEFINITI0N  i 

—  >      with  procedure  PROCEDURE_UNIT 
~>  with  function  FUNCTION_UNIT 

function  GENERIC_PARAMETER_DECLARATION  return  boolean  is 
begin 

if  (IDENTIFIER_LIST)  then 

if  (  BYPASS! TOKEN_COLON))  then 
if  (MODE)  then 

null> 
end  if>  —  if  mode  statement 

if  (NAME)  then  —  check  for  type_mark 

if  ( BYPASS( TOKEN.ASSIGNMENT  )  )  then 
if  (EXPRESSION)  then 

nuil> 
else 

SYNTAX_ERROR( "Generic  parameter  declaration" ) > 
end  if>  —  if  expression  statement 

end  ii\  --    if  bypass ( token_assignment ) 

if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE)  J 
else 

SYNTAX_ERROR( "Generic  parameter  declaration")) 
end  if  J  —  if  bypass( token_semicolon) 

else 

SYNTAX_ERROR( "Generic  parameter  declaration" ) j 
end  ifv  —  if  type_mark  statement 

else 

SYNTAX_ERROR( "Generic  parameter  declaration" )> 
end  if  I  --if  bypass ( token_colon) 

elsif  (BYPASS(TOKEN_TYPE))  then 

if  (BYPASS(TOKEN_IDENTIFIER)  )  then 
if  ( DISCRIMINANT_PART  )  then 

null> 
end  if)  --  if  discriminant_part 

if  ( BYPASS! TOKEN_IS))  then 

if  (PRIVATE_TYPE_DECLARATION)  then 
if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE)v 
else 

SYNTAX_ERROR( "Generic  parameter  declaration")) 
end  if)  —  if  bypass( token_semicolon) 

elsif  (GENERIC_TYPE_DEFINITION)  then 
if  ( BYPASS! TOKEN_SEMICOLON))  then 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Generic  parameter  declaration")) 
end  if)  —  if  bypass ( token_semicolon) 

else 

SYNTAX_ERROR( "Generic  parameter  declaration")) 
end  if)  —  if  private_type_declaration 
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else 

SYtfrAX_ERROR( "Generic  parameter  declaration" ) v 
end  if  I  —  if  bypass( token_is  ) 

else 

SYMTAX_ERROR( "Generic  parameter  declaration"  )  i 
end  if  I  --  if  bypassC token_identif ier ) 

els  if  (BYPASS(TOKEN_WITH))  then 

if  (BYPASS(TOKEN_PROCEDUREn  then 

DECLARE_TYPE  :=  PROCEDURE_DECLARE I 
if  ( PROCEDURE_UNIT  )  then 

return  ( TRUE  Ij 
else 

SYNTAX_ERROR( "Generic  parameter  declaration"  )  j 
end  if  I  —  if  procedure_unit  statement 

eisif  (BYPASS(TOKEN_FUNCTICNn  then 
DECLARE_TYPE  :=  FUNCTION_0ECLARE > 
if  ( FUNCTION_UNIT )  then 

return  ( TRUE  I  i 
else 

SYNTAX_ERROR( "Generic  parameter  declaration" U 
end  if  I  —  if  function_unit  statement 

else 

SYNTAX_ERROR( "Generic  parameter  declaration"  )  v 
end  iii  --    if  bypass! token_procedure) 

else 

return  ( FALSE  )  i 
end  if>  —  if  identif ier_list 

end  GENERIC_PARAMETER_0ECLARATION \ 


—  GENERIC_FORMAL_PART  ~>   procedure  PROCEDURE_UNIT 

~>   function  FUNCTION_UNIT 
— >   package  PACKAGE_0ECLARATION 
function  GENERIC_FORMAL_PART  return  boolean  is 
begin 

if  (  BYPASS!  TOKEN_PROCEDUREn  then 

DECLARE_TYPE  :=  PROCEDURE_DECLARE J 
if  (PROCEDURE_UNIT)  then 

return  (TRUE)> 
else 

SYNTAX_ERROR( "Generic  formal  part")j 
end  if>  —  if  procedure_unit  statement 

els  if  (  BYPASS!  TOKEN_FUNCTIONn  then 
DECLARE_TYPE  :=  FUNCTION_DECLARE ) 
if  ! FUNCTION_UNIT  )  then 

return  !TRUE)v 
else 

SYNTAX.ERRGRI "Generic  formal  part"  )  i 
end  if  I  —  if  function_unit  statement 

elsif  !  BYPASS!  TOKEN_PACKAGEn  then 
OECLARE_TYPE  :=  PACKAGE_DECLARE > 
if  !PACKAGE_DECLARATION)  then 

return  !TRUE)i 
else 

SYNTAX_ERROR! "Generic  formal  part" U 
end  if>  —  if  package_declaration 

else 

return  ( FALSE )( 
end  i  f } 
end  GENERIC_FORMAL_PART> 


--  PROCEDURE_UNIT  -->   identifier  [FORMAL_PART  ?]  is  SUBPROGRAM_BODY 
— >   identifier  [ FORMAL_PART  ?]  \ 
— >   identifier  [ FORMAL_PART  ?]  renames  NAME  \ 
function  PROCEDURE_UNIT  return  boolean  is 
begin 
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DECLARATION  :=  TRUE  I 
if  (BYPASS(TOKEN_IDENTIFIER))  then 
SCOPE_LEVEL  :=  SCOPE_LEVEL  +  Ij 
if  ( FORMAL_PART )  then 

nulli 
end  i  f i 

if  (BYPASS(TOKEN_IS))  then 
if  ( SUBPROGRAM_BODY  1   then 

SCOPE_LEVEL  :=  SCOPE_LEVEL  -  1\ 
return  ( TRUE  ) } 
else 

SYNTAX_ERROR( "Procedure  unit")l 
end  i  f  j 
elsif  (BYPASS(TOKEN_S£MICOLON)  )  then 
SCOPE.LEVEL  :=  SCOPE.LEVEL  -  1 j 
return  (TRUE  J > 
elsif  (BYPASS(TOKEN_RENAMES)  )  then 
if  (NAME)  then 

if  I  BYPASS! TOKEN.SEMICOLON))  then 
SCOPE_LEVEL  :=  SCOPE.LEVEL  -  ll 
return  ( TRUE  )  i 
else 

SYNTAX_ERROR( "Procedure  unit" )j 
end  i  f  •> 
else 

SYNTAX_ERROR( "Procedure  unit"  )i 
end  i  f  i 
end  i  f } 
else 

return  ( FALSE  )i 
end  i  f  •> 
end  PROCEDURE.UNITi 


—  if  formal  part  statement 


—  if  subprogram  body  statement 


—  if  bypass ( token_semicolon) 


—  if  name  statement 
—  if  bypass ( token_is ) 


if  bypass ( token_ identifier ) 


—  SUBPROGRAM_BODY  ~>   new  NAME  [GENERIC_ACTUAL_PART  ?]  J 
— >  separate  > 
—  >  <>  ) 
— >   IDECLARATIVE_PART  ?]  begin  SEQUENCE_OF_STATEMENTS 

[exception  [EXCEPTION_HANDLER]+  ?]  end  [DESIGNATOR  ?]  j 
~>   NAME  J 
function  SUBPROGRAM_BODY  return  boolean  is 
begin 

DECLARATION  :=  TRUE > 
if  (BYPASS(TOKEN_NEW)Hhen 
if  (NAME)  then 

if  (GENERIC_ACTUAL_PART)  then 

null  J 
end  if>  —  if  generic  actual  part 

if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE)> 
else 

SYNTAX_ERROR( "Subprogram  body"  )  \ 
end  i  f  > 
else 

SYNTAX_ERROR( "Subprogram  body" ) i 
end  i  f ( 
elsif  (BYPASS(TOKEN_SEPARATE))  then 
if  ( BYPASS( TOKEN_SEMICOLON  ) )  then 

return  (TRUE)i 
else 

SYNTAX_ERROR( "Subprogram  body" ) > 
end  i  f ) 
elsif  ( BYPASS! TOKEN_BRACKETS))  then 
if  ( BYPASS! TOKEN_SEMICOLON))  then 

return  ( TRUE  )  i 
else 

SYNTAX_ERROR( "Subprogram  body" ) J 
end  i  f ( 


if  bypass! token_semicolon) 

—  if  name  statement 

—  if  bypass! token_semi colon) 


if  bypass! token_semicolon) 
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elsif  (DECLARATIVE.PART)  then 
if  ( BYPASS! TOKEN.BEGIN))  then 
DECLARATION  :=  FALSE > 
if  (SEQUENCE_OF_STATEMENTS)  then 

if  (BYPASS(TOKEN_EXCEPTION)  )  then 
if  (EXCEPTION_HANDLER)  then 

while  (EXCEPTION_HANDLER)  loop 

null  J 
end  locp( 
else 

SYNTAX_ERROR( "Subprogram  body" ) \ 
end  if  I  —  if  except ion_handler  statement 

end  if>  —  if  bypass ( token_except ion) 

if  I  BYPASS! TOKEN_END  1  )  then 
if  (DESIGNATOR;  then 

nuilv 
end  if;  —  if  designator  statement 

if  ( BYPASS! TOKEN.SEMICOLON))  then 
DECLARATION  :=  TRUE v 
return  (TRUE  )J 
else 

SYNTAX_ERROR( "Subprogram  body"  )  > 
end  if}  —  if  bypass( token_semicolon) 

else 

SYNTAX_ERROR( "Subprogram  body"  )  i 
end  if}  —  if  bypass! token_end) 

else 

SYNTAX_ERR0R1 "Subprogram  body"  )} 
end  if}  --  if  sequence  of  statements 

else 

SYNTAX.ERRORI "Subprogram  body"  ) } 
end  if}  —  if  bypass! token_beg in  ) 

elsif  (BYPASS(TOKEN_BEGINn  then 
DECLARATION  :=  FALSE} 
if  !SEQUENCE_OF_STATEMENTS)  then 

if  ( BYPASS! TOKEN_EXCEPTION))  then 
if  lEXCEPTION.HANDLER)  then 

while  IEXCEPTION_HANDLER)  loop 

null} 
end  loop} 
else 

SYNTAX_ERRORI "Subprogram  body"  ) } 
end  if}  —  if  except ion_handler  statement 

end  if}  —  if  bypass! token_except ion  ) 

if  ( BYPASS! TOKEN_END  )  )  then 
if  ! DESIGNATOR)  then 

null} 
end  if}  —  if  designator  statement 

if  ! BYPASS! TOKEN_SEMICOLON))  then 
DECLARATION  :=  TRUE} 
return  ITRUE)} 
else 

SYNTAX_ERR0R1 "Subprogram  body"  ) } 
end  if}  —  if  bypass( token_semicolon) 

else 

SYNTAX_ERROR( "Subprogram  body"  ) } 
end  if}  —  if  bypass! token_end) 

else 

SYNTAX.ERROR! "Subprogram  body"  )} 
end  if}  —  if  sequence  of  statements 

elsif  !NAME)  then 

if  ! BYPASS! TOKEN_SEMICOLON))  then 

return  !TRUE)} 
else 

SYNTAX_ERRORI "Subprogram  body"  ) } 
end  if}  —  if  bypass! token_semicolon) 

else 

return  ! FALSE)} 
end  if}  —  if  bypass! token_new) 
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end  SUBPROGRAM.BOOY J 


~  FUNCTION_UNIT  — >  DESIGNATOR   FUNCTION_UNIT_TAIL 
function  FUNCTION_UNIT  return  boolean  is 
begin 

DECLARATION  :=  TRUE} 
if  (DESIGNATOR)  then 

SCOPE.LEVEL  :=  SCOPE.LEVEL  +  1) 
if  (FUNCTION_UNIT_TAIL)  then 

SCOPE_LEVEL  :=  SCOPE_LEVEL  -  li 
return  (TRUE)} 
else 

SYNTAX_ERROR( "Function  unit")} 
end  i  f } 
else 

return  ( FALSE  ) } 
end  if} 
end  FUNCTION.UNITi 


—  FUNCTION_UNIT_TAIL  -->   is  new  NAME  [GENERIC_ACTUAL_PART  ?]  } 

— >   CFORMAL.PART  ?]  return  NAME   FUNCTION_BODY 
function  FUNCTION_UNIT_TAIL  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IS))  then 

if  (BYPASS(TOKEN_NEW) )  then 
if  (NAME)  then 

if  (GENERIC_ACTUAL_PART)  then 

null  > 
end  if}  —  if  generic  actual  part 

if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE  )} 
else 

SYNTAX_ERROR( "Function  unit  tail")} 
end  if}  --  if  bypass( token_semicolon) 

else 

SYNTAX_ERROR( "Function  unit  tail")} 
end  if}  —  if  name  statement 

else 

SYNTAX_ERROR( "Function  unit  tail")} 
end  if}  —  if  bypass ( token_new) 

els  if  ( FORMAL_PART )  then 

if  (BYPASS(TOKEN_RETURN))  then 

if  (NAME)  then  —  check  for  type_mark 

if  (FUNCTION_BODY)  then 

return  (TRUE)} 
else 

SYNTAX_ERROR( "Function  unit  tail")} 
end  if}  —  if  function  body  statement 

else 

SYNTAX_ERROR( "Function  unit  tail")} 
end  if}  —  if  type  mark  statement 

else 

SYNTAX_ERROR( "Function  unit  tail")} 
end  if}  —  if  bypass( token_ return  1 

elsif  (BYPASS(TOKEN_RETURN))  then 

if  (NAME)  then  —  check  for  type_mark 

if  ( FUNCTION_BODY )  then 

return  ( TRUE  ) } 
else 

SYNTAX_ERROR( "Function  unit  tail")} 
end  if}  —  if  function  body  statement 

else 

SYNTAX_ERROR( "Function  unit  tail")} 
end  if}  —  if  type  mark  statement 

else 
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return  (FALSE)) 
end  Hi  —  if  bypass ( token_ is) 

end  FUNCTION_UNIT_TAILj 


~  FUNCTION_BOOY  — >   is  [ FUNCTION_BODY_TAIL  ?1 
—  >  i 
function  FUNCTION_BODY  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_IS))  then 

if  (FUNCTION_BODY_TAIL)  then 

null) 
end  i  f \ 

return  (TRUE)) 
elsif  ( BYPASS! TOKEN_SEMICOLON))  then 

return  1  TRUE  )) 
else 

return  ! FALSE  ) ) 
end  i  f  v 
end  FUNCTION_BODYj 


—  FUNCTION_BODY_TAIL  — >  separate  ) 

~>  <>  J 

— >   SUBPROGRAM_BODY 
— >   NAME  ) 
function  FUNCTION_BODY_TAIL  return  boolean  is 
begin 

if  ! BYPASS! TOKEN_SEPARATE ) )  then 

if  I  BYPASS! TOKEN.SEMICOLON ) )  then 

return  !TRUE  )) 
else 

SYNTAX_ERROR! "Function  body  tail")) 
end  if)  --  if  bypass!  token_sefnicolon) 

elsif  (BYPASS(TOKEN_BRACKETS))  then 
if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Function  body  tail")) 
end  if)  —  if  bypass(  token_seniicolon) 

elsif  ( SUBPROGRAM_BODY )  then 

return  (TRUE)) 
elsif  (NAME)  then 

if  ( BYPASS! TOKEN_SEMICOLON))  then 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Function  body  tail")) 
end  if)  —  if  bypass(  token_seniicolon) 

else 

return  ( FALSE  ) ) 
end  if)  —  if  bypass( token_separate ) 

end  FUNCTION_BODY_TAIL) 


~  TASK_DECLARATION  — >   body  TASK_BODY  ) 

~>   [type  ?]  identifier  [is  [ENTRY_DECLARATION]* 

[ REPRESENT ATION.CLAUSEl*  end  [identifier  ?]  ?]  ) 
function  TASK_DECLARATION  return  boolean  is 
begin 

DECLARATION  :=  TRUE) 

if  ( BYPASS( TOKEN_TYPE ) )  then 

null) 
end  if)  —  if  bypass( token_type) 

if  (BYPASS(TOKEN_BODY))  then 
if  (TASK.BODY)  then 

if  (BYPASS(TOKEN_SEMICOLON))  then 
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return  (TRUE)) 
else 

SYNTAX_ERROR( "Task  declaration"  )  \ 
end  if) 
else 

SYNTAX_ERROR( "Task  declaration" ) i 
end  i-f)  —  if  task_body  statement 

elsif  (BYPASS(TOKEN_IDENTIFIER))  then 
SCOPE_LEVEL  :=  SCOPE_LEVEL  +  1> 
if  (BYPASS(TOKEN_IS) )  then 

while  (ENTRY_DECLARATION)  loop 

null) 
end  loop » 
while  ( REPRESENT ATION_CLAUSE )  loop 

nullv 
end  loop  i 
if  (BYPASS(TOKEN_END)  )  then 

if  {BYPASS(TOKEN_IDENTIFIER))  then 

null) 
end  if>  --  if  bypass( token_identif ier J 

if  (BYPASS1T0KEN_SEMIC0L0N))  then 
SCOPE.LEVEL  :=  SCOPE_LEVEL  -  Ij 
return  (TRUE)j 
else 

SYNTAX_ERROR( "Task  declaration"  1  j 
end  ifi  —  if  bypassi  token_seniicolon  ) 

else 

SYNTAX_ERROR( "Task  declaration"  )) 
end  if  J  —  if  bypass ( token _end ) 

elsif  IBYPASS(TOKEN_SEMICOLON))  then 
SCOPE_LEVEL  :=  SCOPE.LEVEL  -  li 
return  I  TRUE  )i 
else 

SYNTAX_ERROR( "Task  declaration" 1 ; 
end  if  J  —  if  bypass! token_ is  ) 

else 

return  (FALSE)) 
end  if)  —  if  bypass ( token_body) 

end  TASK_DECLARATION) 


~  TASK_BO0Y  ~>   identifier  is  TASK_BODY_TAIL 
function  TASK_BODY  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IDENTIFIER))  then 
SCOPE.LEVEL  :=  SCOPE_LEVEL  +  1) 
if  (BYPASS(TOKEN_IS))  then 
if  (TASK_BODY_TAIL)  then 

SCOPE_LEVEL  :=  SCOPE_LEVEL  -  1) 
return  (TRUE)) 
else 

SYNTAX_ERROR( "Task  body"  ) ) 
end  if)  —  if  task_body_tail  statement 

else 

SYNTAX_ERROR( "Task  body" ) ) 
end  if)  —  if  bypass ( token_ is  ) 

else 

return  (FALSE)) 
end  if)  —  if  bypass ( token_ identifier ) 

end  TASK_BODY) 


—  TASK_BODY_TAIL  — >  separate 

— >   [DECLARATIVE_PART  ?]  begin  SEQUENCE_OF_STATEMENTS 

[exception  [EXCEPTION_HANDLERl+  ?]  end  [identifier  ?] 
function  TASK_BODY_TAIL  return  boolean  is 
begin 
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DECLARATION  :=  TRUE > 

if  (BYPASS(TOKEN_SEPARATE))  then 

return  ( TRUE U 
elsif  (DECLARATIVE.PARTl  then 
if  ( BYPASS! T0KEN_BEGIN)1  then 
DECLARATION  :=  FALSE v 
if  ( SEQUENCE_OF_STATEMENTS )  then 

if  ( BYPASS! TOKEN_EXCEPTION))  then 
if  (EXCEPTIGN_HANDLER)  then 

while  (EXCEPTION_HANDLER)  loop 

null  J 
end  loop  i 
else 

SYNTAX_ERROR(  "Task  body  tail'Mj 
end  ifv  —  if  except ion_handler  statement 

end  ii \  —  if  bypassi token_exception ) 

if  (  BYPASS!  TOKEN_EN0n  then 

if  ( BYPASS! TOKEN_IDENTIFIER ) )  then 

null  I 
end  if;  —  if  bypass! token_ identifier  I 

DECLARATION  :=  TRUE; 
return  1  TRUE  ); 
else 

SYNTAX_ERROR( "Task  body  tail"); 
end  if;  --  if  bypass! token_and) 

else 

SYNTAX_ERROR( "Task  body  tail"1; 
end  if;  —  if  sequence_of_stateinents 

else 

SYNTAX.ERROR! "Task  body  tail"); 
end  if;  —  if  bypass! token_beg in ) 

elsif  i BYPASS! T0KEN_8EGIN ) )  then 
DECLARATION  :=  FALSE; 
if  !SE9UENCE_0F_STATEMENTSl  then 

if  ! BYPASS! TOKEN_EXCEPTION))  then 
if  !EXCEPTI0N_HANDLER1  then 

while  !EXCEPTION_HANDLER)  loop 

null; 
end  loop; 
else 

SYNTAX_ERROR( "Task  body  tail"); 
end  if;  —  if  except ion_handler  statement 

end  if;  —  if  bypass! token_exception  ) 

if  I  BYPASS! TOKEN.END))  then 

if  ! BYPASS! TOKEN_IDENTIFIER))  then 

null; 
end  if;  —  if  bypass! token_ident if ier) 

DECLARATION  :=  TRUE; 
return  (TRUE); 
else 

SYNTAX_ERROR( "Task  body  tail"); 
end  if;  —  if  bypass! token_end) 

else 

SYNTAX_ERROR( "Task  body  tail"); 
end  if;  —  if  sequence_of_statements 

else 

return  (FALSE); 
end  if;  —  if  bypass ( token_separate) 

end  TASK_BODY_TAIL; 


—  PACKAGE_DECLARATION  — >   body  PACKAGE.BODY 

~>   identifier  PACKAGE_UNIT 
function  PACKAGE_DECLARATION  return  boolean  is 
begin 

DECLARATION  :=  TRUE; 
if  I  BYPASS! TOKEN_BODY))  then 
if  ( PACKAGEBODY )  then 
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re-turn  (TRUE)> 
else 

SYNTAX_ERROR( "Package  declaration" ) j 
end  Hi  —  if  package  unit  statement 

elsif  (BYPASS(TOKEN_IDENTIFIER))  then 
SCOPE_LEVEL  :=  SCOPE.LEVEL  +  li 
if  ( PACKAGE_UNIT )  then 

SCOPE_LEVEL  :=  SCOPE_LEVEL  -  1> 
return  (TRUE)i 
else 

SYNTAX_ERROR( "Package  declaration"  )  j 
end  if>  —  if  package_unit_tail  statement 

else 

return  (FALSE  )> 
end  if>  —  if  bypass ( token.package ) 

end  PACKAGE_DECLARATIONj 


—  PACKAGE_BO0Y  — >   identifier  is  PACKAGE_BODY_TAIL 
function  PACKAGE_BODY  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IDENTIFIER))  then 
SCOPE_LEVEL  :=  SCOPE_LEVEL  +  li 
if  ( BYPASS! TOKEN_IS )  )  then 

if  IPACKAGE_B0DY_TAIL J  then 

SCOPE.LEVEL  :=  SCOPE.LEVEL  -  li 
return  (TRUE  )i 
else 

SYNTAX_cRROR( "Package  body"  )  i 
end  ifj  —  if  package_body_tail  statement 

else 

SYNTAX_ERROR( "Package  body" ) > 
end  if)  —  if  bypass( token_is  ) 

else 

return  ( FALSE  )j 
end  if>  —  if  bypass! token_ident if ier ) 

end  PACKAGE_BODY V 


—  PACKAGE_BODY_TAIL  —>  separate  i 

—>      [DECLARATIVE_PART  ?]  [begin  SEQUENCE_OF_STATEMENTS 
[exception  [EXCEPTION_HANDLERl+  ?]  ?] 
end  [identifier  ?]  i 
function  PACKAGE_BODY_TAIL  return  boolean  is 
begin 

DECLARATION  :=  TRUE l 

if  (BYPASS(TOKEN_SEPARATE))  then 

if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUEU 
else 

SYNTAX_ERROR( "Package  body  tail")> 
end  Hi  —  if  bypass(  token_semicolon) 

elsif  ( DECLARATIVE_PART  )  then 
DECLARATION  :=  FALSE > 
if  (BYPASS(TOKEN_BEGIN))  then 

if  ( SEQUENCE_OF_STATEMENTS  )  then 

if  (BYPASS(TOKEN_EXCEPTION))  then 
if  (EXCEPTION_HANDLER)  then 

while  (EXCEPTION_HANDLER)  loop 

null( 
end  loop> 
else 

SYNTAX_ERROR( "Package  body  tail")> 
end  if  J  —  if  except ion_handler  statement 

end  if>  —  if  bypass ( token_except ion) 

if  (BYPASS(TOKEN_END))  then 

if  ( BYPASS( TOKEN  IDENTIFIER))  then 
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null( 
end  Hi  —  if  bypass(  token_identif  ier ) 

if  (  BYPASS! TOKEN_SEMICOLON))  then 
DECLARATION  :=  TRUEv 
re-turn  ( TRUE  )  j 
else 

SYNTAX_ERROR( "Package  body  tail")} 
end  if  J  —  if  bypass ( token_semicolon) 

else 

SYNTAX_ERROR( "Package  body  tail")j 
end  if)  —  if  bypass ( token_end) 

else 

SYNTAX_ERROR( "Package  body  tail")) 
end  ifi  —  if  sequence_of_statements 

elsif  ( BYPASS! TOKEN_END))  then 

if  (BYPASSITOKEN.IDENTIFIER))  then 

null  I 
end  ifi  —  if  bypass! token_identif ier ) 

if  I  BYPASS! TOKEN.SEMICOLON))  then 
DECLARATION  :=  TRUE) 
return  lTRUE)v 
else 

SYNTAX_ERROR( "Package  body  tail")) 
end  if)  —  if  bypass! token_semico Ion) 

else 

SYNTAX.ERROR! "Package  body  tail")) 
end  if)  —  if  bypass! token_begin ) 

elsif  ( BYPASS! TOKEN_BEGIN))  then 
DECLARATION  :=  FALSE) 
if  1SEQUENCE_0F_3TATEMENTS)  then 

if  I  BYPASS! TOKEN.EXCEPTION  )  )  then 
if  i EXCEPTION_HANDLER)  then 

while  (EXCEPTION_HANDLER)  loop 

null) 
end  loop) 
else 

SYNTAX_ERROR! "Package  body  tail")) 
end  if)  —  if  except ion_handler  statement 

end  if)  --  if  bypass! token_except ion) 

if  ! BYPASS! TOKEN.END))  then 

if  ( BYPASS! TOKEN_IDENTIFIER))  then 

null) 
end  if)  —  if  bypass! token_ identifier) 

if  ! BYPASS! TOKEN.SEMICOLON))  then 
DECLARATION  :=  TRUE) 
return  !TRUE)) 
else 

SYNTAX_ERROR! "Package  body  tail")) 
end  if)  —  if  bypass ( token.semi colon) 

else 

SYNTAX_ERROR( "Package  body  tail")) 
end  if)  —  if  bypass! token_end) 

else 

SYNTAX_ERROR! "Package  body  tail")) 
end  if)  —  if  sequence_of_statetnents 

elsif  ! BYPASS! TOKEN.END))  then 

if  ! BYPASS! TOKEN_IDENTIFIER))  then 

null) 
end  if)  —  if  bypass! token_identif ier ) 

if  I  BYPASS! TOKEN_SEMICOLON))  then 

return  (TRUE)j 
else 

SYNTAX_ERRORI "Package  body  tail")) 
end  if)  —  if  bypass! token_semicolon) 

else 

return  ! FALSE  )) 
end  if)  —  if  bypass! token_separate) 

end  PACKAGE_BODY_TAIL) 
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—  PACKAGE_UNIT  — >   is  PACKA6E_TAIL_END 
— >   renames  NAME  ( 
function  PACKAGE_UNIT  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IS))  then 
if  (PACKAGE_TAIL_END)  then 

return  (TRUE  )i 
else 

SYNTAX_ERROR( "Package  unit")j 
end  i  f  > 
elsif  (BYPASS(TOKEN_RENAMES) )  then 
if  (NAME  )  then 

if  (BYPASS(TOKEN_SEMICOLONI  )  then 

return  ( TRUE  ) ; 
else 

SYNTAX_cRROR( "PacKage  unit"  )  \ 
end  if  5  —  if  bypass( token_3enncolon ) 

else 

SYNTAX_cRROR( "Package  uni  t"  )  i 
end  if  J  --  if  name  statement 

else 

return  ( FALSE U 
end  if*.  —  if  bypass(  token_is  5 

end  PACKAGE_UNIT> 


—  ?ACKAGE_TAIL_END  — >   new  MAME  [ GENERIC. ACTUAL.PART  ?]  > 
— >   lBASIC_OECLARATIVE_ITEMJ*  [private 

iBASIC_OECLARATIVE_ITEMJJ*  11    ana  [identifier  ?]  !, 
function  PACKAGE_TAIL_SND  return  boolean  is 
begin 

if  ( 3YPASS( TOKEN_NEH  )  1  then 
if  (NAME)  then 

if  (GENERIC_ACTUAL_PART)  then 

null( 
end  if>  —  if  generic_actual_part  statement 

if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE)> 
else 

SYNTAX_ERROR( "Package  tail  end"  )  > 
end  if>  —  if  bypass( token_semicolon ) 

else 

SYNTAX_ERROR( "Package  tail  end")> 
end  ifv  —  if  name  statement 

elsif  (BASIC_DECLARATIVE_ITEM)  then 
while  (BASIC_DECLARATIVE_ITEM)  loop 

null> 
end  loop  i 
if  (BYPASS(TOKEN_PRIVATE))  then 

while  (BASIC_DECLARATIVE_ITEM)  loop 

nulli 
end  loop  i 
end  if  J  —  if  bypasst token_private) 

if  (BYPASS(TOKEN_END))  then 

if  (BYPASS(TOKEN_IDENTIFIER))  then 

null( 
end  i  f ) 
if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE)} 
else 

SYNTAX_ERROR( "Package  tail  end")> 
end  if  J  —  if  bypass( token_semicolon) 

else 

SYNTAX_ERROR( "Package  tail  end")v 
end  if  I  —  if  bypass ( token_end) 

elsif  ( BYPASS (TOKEN_PRIVATE))  then 
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while  (BASIC_DECLARATIVE_ITEM)  loop 

nulli 
end  loop  J 
i-f  (  BYPASS (TOKEN_ENDn  then 

if  ( BYPASS! TOKEN_IDENTIFIER))  then 

nullv 
end  i  i i 
if  (BYPASSITOKEN.SEMICOLON))  then 

return  (TRUEU 
else 

SYNTAX_ERR0R1 "Package  tail  end" U 
end  if  J  —  if  bypass ( token_semicolon) 

else 

SYNTAX_ERRORl "Package  tail  end" U 
end  ifv  —  if  bypasst token_and) 

eisif  1BYPASS(T0KEN_EN0  I  )  then 

if  (BYPASS(TOKEN_inENTIFIER))  then 

nullv 
end  i  f  i 
if  (BYPASS(TOKEN_SEMICOLONn  then 

return  ( TRUE  )  i 
else 

SYNTAX_ERROR ("Package  tail  end"  )  j 
end  ifi  --  if  bypass* token_semicolon » 

else 

return  ( FALSE U 
end  if>  —  if  bypass ( token_new  ) 

end  PACKAGE_TAIL_ENDj 


—  3ASIC_0ECLARATIVE_ITEM  -->  8ASIC_0ECLARATIVE 

~>   REPRESENTATION_CLAUSE 
~>   use  WITH_QR_LISE_CLAUSE 
function  BASIC_DECLARATIVE_ITEM  return  boolean  is 
begin 

if  (BASIC_DECLARATION)  then 

return  (TRUE)> 
elsif  ( REPRESENT ATION_CLAUSE)  then 

return  (TRUE)i 
elsif  (BYPASS(TOKEN_USE))  then 
if  (WITH_OR_USE_CLAUSE)  then 

return  (TRUE)i 
else 

SYNTAX_ERROR( "Basic  declarative  item")> 
end  i  f  i 
else 

return  ( FALSE  )  i 
end  ii\ 
end  BASIC_DECLARATIVE_ITEMj 


—  DECLARATIVE_PART  -->   [BASIC_DECLARATIVE_ITEM]*  [ LATER_DECLARATIVE_ITEM]* 
function  DECLARATIVE_PART  return  boolean  is 
begin 

while  (BASIC_DECLARATIVE_ITEM)  loop 
null) 

end  loopi 

while  (LATER_DECLARATIVE_ITEM)  loop 
null) 

end  loop) 

return  (TRUE)) 
end  DECLARATIVE_PART) 


BASIC_DECLARATION  ~>   type  TYPE_DECLARATION 

~>  subtype  SUBTYPE_DECLARATION 
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— >   procedure  PROCEDURE_UNIT 
— >   function  FUNCTION_UNIT 
— >  package  PACKAGE_DECLARATION 
— >   generic  GENERIC_DECLARATION 
— >   IDENTIFIER.DECLARATION 
— >   task  TASK.DECLARATION 
function  BASIC_DECLARATION  return  boolean  is 
begin 

if  (BYPASS(TOKEN_TYPE  ))  then 
if  (TYPE.DECLARATION)  then 

return  ( TRUE  )  i 
else 

SYNTAX_ERROR( "Basic  declaration" )) 
end  i  f \ 
elsif  (BYPASS(TOKEN_SUBTYPE))  then 
if  (SUBTYPE_DECLARATION]  then 

return  ( TRUE  1 i 
else 

SYNTAX_ERROR( "Basic  declaration" ) j 
end  i  f  i 
elsif  ( BYPASS! TOKEN_PROCEDURE))  then 
DECLARE.TYPE  :=  PROCEDURE_DECLARE i 
if  (PROCEDURE_UNIT)  then 

return  (TRUE)j 
else 

SYNTAX_ERROR( "Basic  declaration"  )  j 
end  if>  —  if  procedure_unit  statement 

elsif  (  BYPASS! TOKEN_FUNCTION  )  )  then 
DECLARE_TYPE  :=  FUNCTION_DECLARE i 
if  ( FUNCTION_UNIT  )  then 

return  (TRUE  )i 
else 

SYNTAX_ERROR( "Basic  declaration"  )  v 
end  if  I  —  if  function_unit  statement 

elsif  1  BYPASS! TOKEN_PACKAGE  )  )  then 
DECLARE_TYPE  :=  PACKAGE_OECLAR£ > 
if  (PACKAGE_DECLARATION)  then 

return  ( TRUE ) v 
else 

SYNTAX_ERROR( "Basic  declaration" ) J 
end  if  J  —  if  package_declaration 

elsif  ( BYPASS! TOKEN_GENERICn  then 
if  (GENERIC_DECLARATION)  then 

return  I  TRUE  )  > 
else 

SYNTAX_ERROR( "Basic  declaration" ) \ 
end  if  I  —  if  generic_declaration 

elsif  IIDENTIFIER_DECLARATION)  then 

return  ITRUE)> 
elsif  I  BYPASS! TOKEN.T ASK))  then 
DECLARE_TYPE  :=  TASK_DECLARE J 
if  !TASK_DECLARATION)  then 

return  lTRUE)j 
else 

SYNTAX_ERRORI "Basic  declaration" ) j 
end  i  f  j 
else 

return  ( FALSE ) ) 
end  i  f ( 
end  BASIC_DECLARATIONi 


—  LATER_DECLARATIVE_ITEM  — >   PROPER_BODY 

~>   generic  GENERIC_DECLARATION 
-->  use  WITH_OR_USE_CLAUSE 
function  LATER_DECLARATIVE_ITEM  return  boolean  is 
begin 

if  ( PROPER_BODY  )  then  —  check  for  body_declaration 
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return  (TRUE)i 
elsif  (BYPASS(TOKEN_GENERIC))  then 
if  (GENERIC.DECLARATION)  then 

return  ( TRUE H 
else 

SYNTAX_ERROR( "Later  declarative  item")> 
end  if  J  —  if  generic.declaration 

elsif  ( BYPASS! TOKEN.USE))  then 
if  (WITH_OR_USE_CLAUSE)  then 

return  (TRUE)> 
else 

SYNTAX_ERROR(  "Later  declarative  item"n 
end  if  J  —  if  with_or_use_clause 

else 

return  (FALSE)  J 
end  i  f \ 
end  LATER_DECLARATIVE_ITEM> 


--  PROPER_BODY  -->   procedure  PROCEDURE_UNIT 
~>   function  FUNCTION.UNIT 
— >   package  PACKAGE_DECLARATION 
— >   task  TASK_0ECLARATION 
function  PROPER_BODY  return  boolean  is 
begin 

if  (BYPASS(TOKEN_PROCEDUREn  then 

DECLARE.TYPE  :=  PROCEDURE_DECLARE > 
if  ( PROCEDURE.UNIT )  then 

return  ( TRUE  )  v 
else 

SYNTAX_ERROR( "Proper  body" ) > 
end  i  f } 
elsif  ( BYPASS! TOKEN.FUNCTIONl)  then 
DECLARE_TYPE  :=  FUNCTION_DECLARE J 
if  ( FUNCTION_UNIT )  then 

return  ( TRUE  )  v 
else 

SYNTAX_ERROR( "Proper  body"  )  j 
end  i  f  > 
elsif  ( BYPASS! T0KEN_PACKAGE1)  then 
DECLARE_TYPE  :=  PACKAGE_DECLARE j 
if  (PACKAGE_DECLARATION)  then 

return  ( TRUE  )  > 
else 

SYNTAX_ERROR( "Proper  body"  )  j 
end  i  f ( 
elsif  ( BYPASS! TOKEN_T ASK))  then 
DECLARE_TYPE  :=  TASK_DECLARE v 
if  (TASK_DECLARATION)  then 

return  (TRUE)j 
else 

SYNTAX_ERROR! "Proper  body"  )  > 
end  i  f ) 
else 

return  (FALSE)) 
end  i  f ( 
end  PROPER_BODY) 


if  procedure_uni t  statement 


—  if  function_unit  statement 


-  if  package_declaration 


if  bypass! token_procedure) 


~  SEQUENCE_OF_STATEMENTS  — >   [STATEMENT]* 
function  SEQUENCE_OF_STATEMENTS  return  boolean  is 
begin 

if  (STATEMENT)  then 

while  (STATEMENT)  loop 

nullj 
end  loop \ 
return  (TRUE)> 
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else 

return  ( FALSE  )> 
end  i  f  v 
end  SEQUENCE_OF_STATEMENTSv 


—  STATEMENT  — >   [LABEL  ?]  SIMPLE.STATEMENT 

-->   [LABEL  ?]  COMPOUND_STATEMENT 
•function  STATEMENT  return  boolean  is 
begin 

if  (LABEL)  then 

nulli 
end  i  f  i 
a    (SIMPLE_3TATEMENT1  then 

return  I  TRUE U 
els  if  ; C0MP0UND_3TATEMENT ;  then 

return  ( TRUE  3 > 
else 

return  ( FALSE  )  i 
end  i  f  > 
end  STATEMENT  J 


—  COMPOUND.STATEMENT  — >   if  IF_STATEMENT 

~>   case  CASE  .STATEMENT 
— >   LOOP.STATEMENT 
— >   3L0CK_STATEMENT 
~>   accept  ACCEPT_3TATEMENT 
— >   select  3ELECT_3TATEMENT 
function  COMPOUND.STATEMEfTT  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IF  n  then 

NESTING_METRICl IF_CONSTRUCT 1 \ 
if  (IF_STATEMENT)  then 

return  (TRUE)j 
else 

SYNTAX_ERROR( "Compound  statement"  )  \ 
end  if  I  —  if  if_statement 

elsif  (BYPASS(TOKEN_CASE))  then 
NESTING_METRIC( CASE.CONSTRUCT ) j 
if  ( CASE_STATEMENT )  then 

return  (TRUE  )l 
else 

SYNTAX_ERROR( "Compound  statement"  )  i 
end  ifv  —  if  case_statement 

elsif  ( LOOP_STATEMENT )  then 

return  (TRUE)i 
elsif  ( BLOCK_STATEMENT  )  then 

return  (TRUE  )> 
elsif  (BYPASS(TOKEN_ACCEPT))  then 
if  (ACCEPT_STATEMENT)  then 

return  (TRUE)j 
else 

SYNTAX_ERROR( "Compound  statement" n 
end  i  f i 
elsif  (BYPASS(TOKEN_SELECT))  then 
if  (SELECT_STATEMENT)  then 

return  (TRUE)i 
else 

SYNTAX_ERROR( "Compound  statement" )> 
end  i  f  J 
else 

return  (FALSE)) 
end  i  f  j 
end  COMPOUND_STATEMENT  i 
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—  BLOCK_STATEMENT  — >   [identifier  :  ?]  [declare  DECLARATIVE.PART  ?] 

begin  SEqUENCE_OF_STATEMENTS  [exception 
[EXCEPTION_HANDLER]+  ?]  ?]  end  [identifier  ?]  J 
function  BLOCK_STATEMENT  return  boolean  is 

DECLARE_STATUS  :  boolean > 
begin 

if  (DECLARATION!  then 

OECLARE.STATUS  :=  TRUE  I 
else 

DECLARATION  :=  TRUE » 
DECLARE_STATUS  :=  FALSE  I 
end  i  f  j 

OECLARE_TYPE  :=  3L0CK_DECLARE > 
if  ;8YPASSIT0KEN_IDENTIFIERJ  )  then 
SCOPE_LEVEL  :-    3C0PE_LEVEL  +  li 
if  ( BYPASS! TOKEN_COLON J  )  then 

SCOPE_LEVEL  :=  SCOPE_LEVEL  -  li 
else 

SYNTAX_SRROR( "Block  statement" 1 i 
end  if  J  —  if  bypass( token_colon) 

else 

OECLARE_TYPE  :=  VARIABLE_DECLARE V 
end  if>  —  if  bypass ( token_ident if ier ) 

if  (BYPASS{T0KEN_DECLARE1  )  then 
SCOPE.LEVEL  :=  SCOPE_LEVEL  +  li 
if  (0ECLARATIV£_PART1  then 

null) 
else 

3YNTAX_ERR0R( "Block  statement"  1  j 
end  ii;  —  if  deciarative_part  statement 

end  ifi  —  if  bypass* token_declare) 

if  ( BYPASS! T0KEN_3EGIN  )  )  then 
DECLARATION  :=  FALSE i 
if  iSEQUENCE_OF_STATEMENTSl  then 

if  ( BYPASS! TOKEN_EXCEPTION  )  )  then 
if  (EXCEPTION_HANDLER)  then 

while  (EXCEPTION_HANDLER)  loop 

null) 
end  loop  > 
else 

SYNTAX_ERROR( "Block  statement"  )  j 
end  Hi  —  if  except ion_handler  statement 

end  if>  --  if  bypass! token_exception  ) 

if  (  BYPASS!  TOKEN_ENDn  then 

if  I  BYPASS! TOKEN_IDENTIFIER))  then 

null  V 
end  if)  —  if  bypass! token_ident if ier  ) 

if  ( BYPASS! TOKEN.SEMICOLON))  then 
SCOPE_LEVEL  :=  SCOPE_LEVEL  -  Ij 
DECLARATION  :=  TRUE i 
return  ! TRUE)  I 
else 

SYNTAX_ERROR( "Block  statement"  )  > 
end  if  J  —  if  bypass! token_semicolon ) 

else 

SYNTAX_ERRGR( "Block  statement"  )  i 
end  if)  —  if  bypass! token_end) 

else 

SYNTAX_ERROR( "Block  statement"  )  i 
end  if  J  —  if  sequence_of_statements 

else 

if  not  (DECLARE_STATUS)  then 

DECLARATION  :=  FALSE j 
end  i  f  i 

return  ( FALSE  )i 
end  if>  —  if  bypass! token_begin) 

end  BLOCK_STATEMENTj 
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~  IF_STATEMENT  — >   EXPRESSION  then  SEQUENCE_OF_STATEMENTS 

[elsif  EXPRESSION  then  SEQUENCE_OF_STATEMENTS]* 
[else  SEQUENCE_OF_STATEMENTS  ?]  end  if  j 
function  IF_STATEMENT  return  boolean  is 
begin 

if  (EXPRESSION)  then 

if  (BYPASS(TOKEN_THEN))  then 

if  (SEQUENCE_OF_STATEMENTS)  then 
while  ( BYPASS! TOKEN_ELSIF))  loop 
if  (EXPRESSION)  then 

if  (BYPASS(TOKEN_THEN))  then 

if  not  (SEQUENCE_OF_STATEMENTS)  then 

SYNTAX_ERROR( "If  statement"  )  > 
end  Hi  --    if  not  sequence_of_staternents 

else 

SYNTAX_ERROR( "If  statement"  )  5 
end  ii\  —  if  bypass( token_then) 

else 

SYNTAX_ERROR("If  statement")! 
end  if}  --  if  expression  statement 

end  loop  > 
if  (BYPASS(TOKEN_ELSE))  then 

if  (SEQUENCE_OF_STATEMENTS)  then 

null  I 
else 

SYNTAX_ERROR("If  statement" )> 
end  ifj  —  if  sequence_of_statements 

end  ifv  —  if  bypass ( token_else ) 

if  (BYPASS(TOKEN_END))  then 
if  (BYPASS(TOKEN_IF))  then 

if  (BYPASS(TOKEN_SEMICOLON) )  then 
NESTING_METRIC( IF_END  J  i 
return  (TRUE  )i 
else 

SYNTAX_ERROR("If  statement" )v 
end  if  J  —  if  bypass ( token_semicolon ) 

else 

SYNTAX_ERROR("If  statement" )> 
end  if  I  —  if  bypass ( token_if ) 

else 

SYNTAX_ERROR("If  statement" )j 
end  if}  —  if  bypass ( token_end) 

else 

SYNTAX_ERROR("If  statement")} 
end  if}  —  if  sequence_of_statements 

else 

SYNTAX_ERROR( "If  statement"  ) } 
end  if}  —  if  bypass ( token_ then) 

else 

return  ( FALSE  )} 
end  if}  —  if  expression  statement 

end  IF_STATEMENT} 


~  CASE_STATEMENT  — >   EXPRESSION  is  [CASE_STATEMENT_ALTERNATIVE  ]+  end  case  } 
function  CASE_STATEMENT  return  boolean  is 
begin 

if  (EXPRESSION)  then 

if  (BYPASS(TOKEN_IS))  then 

if  (CASE_STATEMENT_ALTERNATIVE)  then 

while  ( CASE_STATEMENT_ALTERNATIVE )  loop 

null} 
end  loop } 
if  (BYPASS(TOKEN_END))  then 

if  (BYPASS(TOKEN_CASE))  then 

if    (BYPASS( TOKEN   SEMICOLON))    then 
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NESTIN6_METRIC( CASE_END ) i 
re-turn  (TRUE)i 
else 

SYhfTAX_ERROR(  "Case  s-tatement"  )  j 
end  Hi  —  if  bypass(  token_semicolon) 

else 

SYNTAX_ERROR( "Case  statement"  1  i 
end  i-fj  —  if  bypass ( token_ case) 

else 

SYNTAX_ERROR( "Case  statement" ) j 
end  if)  —  if  bypass ( token_end ) 

else 

SYNTAX_ERRORl "Case  statement"  )  i 
end  if)  —  if  case_statement_alternative 

else 

SYNTAX_ERROR( "Case  statement" 1 ) 
end  if)  —  if  bypassf token_is  ) 

else 

return  ( FALSE  U 
end  if)  —  if  expression  statement 

end  CASE_STATEMENT ) 


—  CASE_STATEMENT_ALTERNATIVE  — >   when  CHOICE  [   CHOICE]*  => 

SEQUENCE_OF_STATEMENTS 
function  CASE_STATEMENT_ALTERNATIVE  return  boolean  is 
begin 

if  (BYPASS(TOKEN_WHEN) )  then 
if  (CHOICE)  then 

while  ( BYPASS! T0KEN_3AR  ))  loop 
if  not  (CHOICE  )  then 

SYNTAX_ERROR( "Case  statement  alternative")) 
end  if)  —  if  not  choice  statement 

end  loop ) 
if  (BYPASS(TOKEN_ARROW)  )  then 

if  (SEQUENCE_OF_STATEMENTS)  then 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Case  statement  alternative")) 
end  if)  —  if  sequence_of_statements 

else 

SYNTAX_ERROR( "Case  statement  alternative")) 
end  if)  —  if  bypass ( token_arrow) 

else 

SYNTAX_ERROR( "Case  statement  alternative")) 
end  if)  —  if  choice  statement 

else 

return  ( FALSE  )) 
end  if)  —  if  bypass ( token_when) 

end  CASE_STATEMENT_ALTERNATIVE) 


—  LOOP_STATEMENT  — >   [identifier  :  ?]  [ ITERATION_SCHEME  ?]  loop 

SEqUENCE_OF_STATEMENTS  end  loop  [identifier  ?]  ) 
function  LOOP_STATEMEtfr  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IDENTIFIER))  then 
if  (BYPASS(TOKEN_COLON))  then 

null) 
else 

SYNTAX_ERROR( "Loop  statement" )) 
end  if)  —  if  bypass! token_colon) 

end  if)  ■ —  if  bypass ( token_ identifier ) 

if  (ITERATION_SCHEME )  then 

NO_ITERATION  :=  FALSE) 
end  if)  —  if  iteration_scheme  statement 

if  (BYPASS! TOKEN  LOOP))  then 
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if  (NO_ITERATION)  then 

NESTING_METRIC( LOOP_CONSTRUCT )  i 
else 

NO_ITERATION  :=  TRUE) 
end  i  f  i 

if  (SEQUENCE_OF_STATEMENTS)  then 
if  ( BYPASS! TOKEN.END))  then 

if  (BYPASS(TOKEN_LOOP)  )  then 

if  (BYPASS(TOKEN_IDEhfriFIER))  then 

null) 
end  if)  —  if  bypass( token_identif ierl 

if  (BYPASS(TOKEN_SEMICOLON))  then 
NESTING_METRICl LOOP_END  ) ) 
return  i TRUE  i > 
else 

SYMTAX_ERROR( "Loop  statement" ) ) 
end  if;  —  if  bypass ( token_semicoion ) 

else 

SYNTAX_ERROR( "Loop  statement"  ) ) 
end  if)  —  if  bypass t token_ loop j 

else 

SYNTAX_ERROR( "Loop  statement"  ) ) 
end  if)  —  if  bypass( token_end) 

else 

SYNTAX_ERROR( "Loop  statement" ) ) 
end  if)  —  if  sequence_of_3tataments 

else 

return  (FALSE)) 
end  if)  —  if  bypassi token_loop ) 

end  LOOP_STATEMENT ) 


—  EXCEPTION_HANDLER  ~>  when  SXCEPTION_CHOICE  [   EXCEPTION_CHOICE 3*  => 

SEQUENCE_OF_STATEMENTS 
function  £XCEPTION_HANDLER  return  oooiean  is 
begin 

if  (BYPASS(TOKEN_WHEN))  then 
if  (EXCEPTION_CHOICE)  then 

while  (BYPASS(TOKEN_BAR))  loop 
if  not  ( EXCEPTION.CHOICE  )  then 

SYNTAX_ERROR( "Exception  handler"  ) ) 
end  if)  —  if  not  exception_choice 

end  loop ) 
if  (BYPASS(TOKEN_ARROW))  then 

if  (SEQUENCE_OF_STATEMENTS)  then 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Exception  handler"  ) ) 
end  if)  —  if  sequence_of_statements 

else 

SYNTAX_ERROR( "Exception  handler" ) ) 
end  if)  —  if  bypass ( token_arrow) 

else 

SYNTAX_ERROR( "Exception  handler" ) ) 
end  if)  —  if  exception_choice  statement 

else 

return  ( FALSE U 
end  if)  —  if  bypass ( token-when) 

end  EXCEPTION_HANDLER) 


—  ACCEPT_STATEMEhfr  —>   identifier  [(EXPRESSION)  ?]  [  FORMAL_PART  ?] 

[do  SEQUENCE_OF_STATEMENTS  end  [identifier  ?]  ?]  ) 
function  ACCEPT_STATEMENT  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IDENTIFIER))  then 
if  ( BYPASS (TOKEN_LEFT_PAREN))  then 
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if  (EXPRESSION)  then 

if  (BYPASS(TOKEN_RIGHT_PAREN))  then 

null) 
else 

SYNTAX_ERROR( "Accept  statement"  )  > 
end  if  J  —  if  bypass ( token_right_paren) 

else 

SYNTAX_ERROR( "Accept  statement"  )  > 
end  Hi  —  if  expression  statement 

end  ifv  --  if  bypass! token_lef t_paren  ) 

if  ( FORMAL_PART  )  then 

null  I 
end  Hi  —  if  formai_part  statement 

if  ( BYPASS! TOKEN_DO  )  )  then 

if  (SEQUENCE_OF_STATEMENTS)  then 
if  ! BYPASS! TOKEN_END  I  )  then 

if  ( BYPASS! TOKEN.IDENTIFIER))  then 

nuilv 
end  if>  —  if  bypass! token_ identifier  1 

else 

SYNTAX_ERROR( "Accept  statement"  )) 
end  ifi  —  if  bypass! token_end) 

else 

SYNTAX.ERRORI "Accept  statement"  )  \ 
end  if>  —  if  sequence_of_statements 

end  if;  --  if  bypass! token_do  ) 

if  ( BYPASS! TOKEN_SEMICOLON))  then 

return  i TRUE  ) ; 
else 

3YNTAX_ERR0R! "Accept  statement"  )  \ 
end  if;  —  if  bypass! token_3emicolon) 

else 

return  ! FALSE  )  i 
end  if>  —  if  bypass! token_ identifier  ) 

end  ACCEPT_STATEMENT ; 


~  SELECT_STATEMENT  — >  SELECT_STATEMEhfr_TAIL  SELECT_EMTRY_CALL  end  select  J 
function  SELECT_STATEMENT  return  boolean  is 
begin 

if  (SELECT_STATEMENT_TAIL)  then 
if  (SELECT_ENTRY_CALL)  then 
if  ( BYPASS! TOKEN_END))  then 

if  ! BYPASS! TOKEN_SELECT  )  )  then 

if  ( BYPASS! TOKEN_SEMICOLON ) )  then 

return  !TRUE)l 
else 

SYNTAX_ERROR( "Select  statement"  )  \ 
end  if  J  —  if  bypass! token_semicolon) 

else 

SYNTAX_ERROR! "Select  statement"  )  \ 
end  if  J  --  if  bypass! token_select ) 

else 

SYNTAX_ERROR( "Select  statement"  )  \ 
end  if>  —  if  bypass! token_end) 

else 

SYNTAX_ERROR( "Select  statement"  )  > 
end  if  J  —  if  select_entry_call  statement 

else 

return  ( FALSE  )i 
end  if  J  —  if  select_statement_tail 

end  SELECT_STATEMENTj 


—  SELECT_STATEMENT_TAIL  —>  SELECT_ALTERNATIVE  [or  SELECT_ALTERNATIVE ]* 

~>  NAME  i    ISEQUENCE_0F_STATEMENTS  ?] 
function  SELECTSTATEMENTTAIL  return  boolean  is 
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begin 

if  (SELECT_ALTERNATIVE)  then 

while  ( BYPASS! TOKEN_OR))  loop 

if  not  (SELECT_ALTERNATIVE)  then 

SYNTAX_ERROR( "Select  statement  tail")j 
end  i  f  i 
end  loop  i 
return  (TRUE)) 
elsif  (NAME)  then  —  check  for  entry  call  statement 

if  (BYPASS(TOKEN_SEMICOLON))  then 
if  ( SEQUENCE_OF_STATEMENTS )  then 

null) 
end  if)  —  if  sequence_of_statements 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Select  statement  tail")) 
end  if)  —  if  bypass( token_semicolon  ) 

else 

return  ( FALSE  )) 
end  if)  —  if  select_alternative  statement 

end  SELECT_STATEMENT_TAIL) 


--  SELECT_ALTERNATIVE  ~>   [when  EXPRESSION  =>  ?]  accept  ACCEPT_STATEMENT 

[SEQUENCE_OF_STATEMENTS  ?] 
— >   [when  EXPRESSION  =>  ?]  delay  DELAY_STATEMENT 

[SEQUENCE_OF_STATEMENTS  ?1 
~>   [when  EXPRESSION  =>  ?]  terminate  ) 
function  SELECT_ALTERNATIVE  return  boolean  is 
begin 

if  (BYPASS(TOKEN_HHEN)  I  then 
if  (EXPRESSION)  then 

if  (BYPASS(TOKEN_ARROW) )  then 

null) 
else 

SYNTAX_ERROR( "Select  alternative"  ) ) 
end  if)  —  if  bypass ( token_ar row) 

else 

SYNTAX_ERROR( "Select  alternative" ) ) 
end  if)  —  if  expression  statement 

end  if)  —  if  bypass ( token_when) 

if  (BYPASS(TOKEN_ACCEPT))  then 
if  (ACCEPT_STATEMENT)  then 

if  (SEQUENCE_OF_STATEMENTS)  then 

null) 
end  if)  —  if  sequence_of_statements 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Select  alternative" ) ) 
end  if)  —  if  accept_statement 

elsif  (BYPASS(TGKEN_DELAY))  then 
if  (DELAY_STATEMENT)  then 

if  (SEQUENCE_OF_STATEMENTS)  then 

null) 
end  if)  —  if  sequence_of_statements 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Select  alternative" ) ) 
end  if)  —  if  delay_statement 

elsif  (BYPASS(TOKEN_TERMINATE))  then 
if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Select  alternative"  ) ) 
end  if)  —  if  bypass( token_semicolon) 

else 

return  (FALSE)) 
end  if)  —  if  bypass ( token_accept) 


127 


end  SELECT_ALTERNATIVEj 


~  SELECT_ENTRY_CALL  ~>  elsa  SEQUENCE_OF_STATEMENTS 

~>  or  delay  DELAY_STATEMENT  [SEQUENCE_OF_STATEMENTS  ?! 
func-tion  SELECT_ENTRY_CALL  return  boolean  is 
begin 

if  ( BYPASS( TOKEN_ELSE ) )  then 

if  (SEQUENCE_OF_STATEMENTS)  then 

return  (TRUE)> 
else 

SYNTAX_ERROR("Select  entry  call"  )» 
end  Hi  —  if  sequence_of_statements 

els  if  (  BYPASS!  TOKEN_ORn  then 
if  (BYPASS(TOKEN_DELAY)  )  then 
if  (DELAY_STATEMENT  )  then 

if  (SEQUENCE_OF_STATEMENTS)  then 

nullv 
end  if>  —  if  sequence_of_statements 

return  ( TRUE  )  i 
else 

SYNTAX_ERROR( "Select  entry  call")i 
end  if>  —  if  delay_statement 

else 

SYNTAX_ERROR( "Select  entry  call")) 
end  if)  —  if  bypass( token_delay  ) 

else 

return  ( FALSE  )  J 
end  if)  —  if  bypass( token_else) 

end  SELECT_ENTRY_CALL> 


end  PARSER_lj 
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APPENDIX  E 
^\DAMEASURE'  PROGRAM  LISTING  -  PART  3 


TITLE: 

MODULE  NAME: 
OATE  CREATEO: 
LAST  .MODIFIED: 

AUTHORS: 


AN  ADA  SOFTHARE  METRIC 

PACKAGE  ?ARSHR_2 
18  JUL  36 
0<+  DEC  36 

LCDR  JEFFREY  L.  NIEDER 
LT  KARL  3.  FAIRBANKS,  JR. 


DESCRIPTION:   This  package  cotrtains  thirty-three  functions 

that  are  the  middle  level  productions  for  our  top-down, 
recursive  descent  parser.   Each  function  is  preceded 
by  the  grammaar  productions  they  are  implementing. 


with  PARSER_3,  PARSER_'^,  BYPASS_=UNCTION,  BYPASS_SUPPORT_?UNCTIONS, 

GLOBAL_PARSER,  GLOBAL; 
use  PARSER_5,  PARSER,^,  3YPASS_FUNCTI0N,  8YPASS_3UPP0RT_FUNCTI0NS, 
GLOBAL_PARSER,  GLOBAL; 

package  3ARSER_^  is 

function  GENERIC_ACTUAL_PART  return  boolean) 

function  GENERIC_ASSOCIATION  return  boolean-, 

function  GENERIC_FORMAL_PARAMETER  return  boolean; 

function  GENERIC_TYPE_DEFINITION  return  boolean; 

function  PRIVATE_TYPE_DECLARATION  return  boolean) 

function  TYPE_DECLARATION  return  boolean; 

function  SUBTYPE_DECLARATION  return  boolean; 

function  DISCRIMINANT_PART  return  boolean) 

function  DISCRIMINANT.SPECIFICATION  return  boolean) 

function  TYPE_DEFINITION  return  boolean; 

function  RECORD_TYPE_DEFINITION  return  boolean; 

function  COMPONENT_LIST  return  boolean; 

function  COMPONENT_DECLARATION  return  boolean; 

function  VARIANT_PART  return  boolean) 

function  VARIANT  return  boolean; 

function  WITH_OR_USE_CLAUSE  return  boolean; 

function  FORMAL_PART  return  boolean; 

function  IDENTIFIER_DECLARATION  return  boolean) 

function  IDENTIFIER_DECLARATION_TAIL  return  boolean) 

function  EXCEPTION_TAIL  return  boolean) 

function  EXCEPTION_CHOICE  return  boolean; 

function  CONST ANT_TERM  return  boolean; 

function  IDENTIFIER_TAIL  return  boolean) 

function  PARAMETER.SPECIFICATION  return  boolean) 

function  IDENTIFIER_LIST  return  boolean) 

function  MODE  return  boolean; 

function  DESIGNATOR  return  boolean; 

function  SIMPLE_STATEMENT  return  boolean; 

function  ASSIGNMENT_OR_PROCEDURE_CALL  return  boolean) 

function  LABEL  return  boolean; 

function  ENTRY_DECLARATION  return  boolean; 

function  REPRESENTATION_CLAUSE  return  boolean; 

function  RECORD_REPRESENTATION_CLAUSE  return  boolean; 
end  PARSE R_2) 
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package  body  PARSER_2  is 

—  GENERIC_ACTUAL_PART  —>      ( GENERIC.ASSOCIATION  [,  GENERIC_ASSOCIATION ]*  ) 
function  GENERIC_ACTUAL_PART  return  boolean  is 
begin 

if  (BYPASS(TOKEN_LEFT_PAREN))  then 
if  (GENERIC.ASSOCIATION)  then 

while  (BYPASS(TOKEN_COMMA))  loop 

if  not  ( GENERIC_ASSOCIATION  )  then 

SYNTAX_ERROR("Generic  actual  part" U 
end  if  J  --  if  not  generic_association 

end  loop  i 
if  I  BYPASS! TOKEN_RIGHT_PAREN  )  )  then 

return  l TRUE  )  > 
else 

3YNTAX_ERR0R( "Generic  actual  part" U 
and  Hi  —  if  bypass* token_right_paren ) 

else 

SYNTAX_ERROR( "Generic  actual  part" U 
end  if»  —  if  generic  association  statement 

else 

return( FALSE  )> 
end  if;  —  if  bypass( token_lef t_paren ) 

end  GENERIC_ACTUAL_PARTt 


~  GENERIC.ASSOCIATION  — >   :gENERIC_FORMAL_PARAMETER  ?]  EXPRESSION 
function  GENERIC_ASSOCIATION  return  boolean  is 
begin 

if  1GENERIC_F0RMAL_PARAMETER  )  then 

null  J 
end  if;  —  if  generic_formal_parameter  statement 

if  (EXPRESSION)  then  —  check  for  generic_3ctual_parameter 

return  ( TRUE  )  j 
else 

return  ( FALSE ) > 
end  if}  —  if  expression 

end  GENERIC_ASSOCIATIONv 


—  GENERIC_FORMAL_PARAMETER  — >   identifier  => 

-->   string_literal  => 
function  GENERIC_FORMAL_PARAMETER  return  boolean  is 
begin 

LOOK_AHEAD_TOKEN  : =  TOKEN_RECORD_BUFFER( TOKEN_ARRAY_INDEX  +1)) 
if  (ADJUST_LEXEME( LOOK_AHEAD_TOKEN. LEXEME, 

LOOK_AHEAD_TOKEN.LEXEME_SIZE  -  1)  =  "=>"  )  then 
if  (BYPASS(TOKEN_IDENTIFIER))  then 
if  (BYPASS(TOKEN_ARROW))  then 

return  (TRUE)j 
else 

SYNTAX_ERROR( "Generic  formal  parameter")} 
end  if}  —  if  bypass ( token_arrow) 

elsif  (BYPASS(TOKEN_STRING_LITERAL))  then 
if  (BYPASS(TOKEN_ARROHn  then 

return  (TRUE)} 
else 

SYNTAX_ERROR( "Generic  formal  parameter")} 
end  if}  —  if  bypass! token_arrow) 

else 

SYNTAX_ERROR( "Generic  formal  parameter")} 
end  if}  —  if  bypass! token_identifier) 

else 

return  (FALSE)} 
end  if}  —  if  adjust_lexeme( lookahead_token) 

end  GENERIC_FORMAL_PARAMETER} 
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~  GENERIC_TYPE_DEFINITION  — >   (  <>  ) 
—  -->   range  <> 

— >  digits  <> 
— >  delta  <> 

— >  array  ARRAY_TYPE_DEFINITION 
~>  access  SUBTYPE_IN0ICATION 
function  GENERIC_TYPE_DEFINITION  return  boolean  is 
begin 

if  (BYPASS(TOKEN_LEFT_PAREN))  then 
if  (BYPASS(TOKEN_BRACKETS))  then 

if  ( BYPASS! TOKEN_RIGHT_PAREN ) )  then 

return  ( TRUE  )  > 
else 

SYNTAX_ERROR( "Generic  type  definition" ) j 
end  ifv  —  if  bypass( token_right_paren  ) 

else 

SYNTAX_ERRORl "Generic  type  definition" ) > 
end  ii\  —  if  bypass ( token_brackets ) 

elsif  ( BYPASS( TOKEN_RANGE  )  )  or  else  ( BYPASS( TOKEN_OIGITS ) ) 
or  else  ( BYPASS(TOKEN_0ELTA  ) )  then 
if  (BYPASS(TOKEN_BRACKETS))  then 

return  (TRUE  )i 
else 

SYNTAX_ERROR( "Generic  type  definition" )> 
end  if  I  —  if  bypass ( token_brackets  ) 

elsif  (BYPASS(TOKEN_ARRAY) )  then 
if  (ARRAY_TYPE_DEFINITICN)  then 

return  ( TRUE  )  \ 
else 

SYNTAX_ERROR( "Generic  type  definition" U 
end  if>  --  if  array_type_def inition 

elsif  (BYPASS(TOKEN_ACCESS))  then 
if  (SUBTYPE_IN0ICATION)  then 

return  (TRUE)> 
else 

SYNTAX_ERROR( "Generic  type  definition" )> 
end  if  I  —  if  subtype_indication 

else 

return  (FALSE)) 
end  if  J  —  if  bypass ( token_left_paren) 

end  GENERIC_TYPE_0EFINITIONj 


—  PRIVATE_TYPE_DECLARATION  —>   [limited  ?]  private 
function  PRIVATE_TYPE_DECLARATION  return  boolean  is 
begin 

if  (BYPASS(TOKEN_LIMITED))  then 

null  I 
end  i  f  v 
if  (BYPASS(TOKEN_PRIVATE))  then 

return  (TRUE)> 
else 

return  ( FALSE ) i 
end  i  f ( 
end  PRIVATE_TYPE_DECLARATION} 


—  SUBTYPE.DECLARATION  — >   identifier  is  SUBTYPE_INDICATION  \ 
function  SUBTYPE_DECLARATION  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IDENTIFIER))  then 
if  (BYPASS(TOKEN_IS))  then 

if  (SUBTYPE_INDICATION)  then 

if  (BYPASS( TOKEN  SEMICOLON))  then 
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re-turn  (TRUE)} 
else 

SYNTAX_ERROR( "Subtype  declaraiion"  ) ) 
end  if  J  —  if  bypass ( token_sernicolon) 

else 

SYNTAX_ERROR( "Subtype  declaration"  )  i 
end  if}  —  if  subtype_indication  statement 

else 

SYhfrAX_ERROR( "Subtype  declaration" ) } 
end  if}  —  if  bypass! token_is ) 

else 

return  ( FALSE  ) } 
end  if}  —  if  bypass! token_ident if ier  ) 

end  SUBTYPE_DECLARATION} 


—  TYPE_DECLARATION  -->   identifier  [DISCRIMINANT_PART  ?] 

is  SUBTYPE_INDICATION} 
function  TYPE_DECLARATION  return  boolean  is 
begin 

if  (  BYPASS!  TOKEN_IDENTIFIERn  then 
if  1 DISCRIMINANT_PART  )  then 

null} 
end  if}  —  if  discriminant_papt  statement 

if  1  BYPASS! TOKEN_IS))  then  ~  declaration  is  full_type  if  'is' 

if  IPRIVATE_TYPE_DECLARATION)  then 

null} 
els  if  ! TYPE_DEFINITION)  then      —    present,  otherwise  incomplete_type 

null} 
else 

SYNTAX.ERROR! "Type  declaration"  ) } 
end  if}  —  if  type_def inition  statement 

end  if}  —  if  bypass! token_is  ) 

if  I  BYPASS! TOKEN.SEMICOLON))  then 

return  I  TRUE  )} 
else 

SYNTAX_ERROR( "Type  declaration" ) } 
end  if}  —  if  bypass! token_semicolon) 

else 

return  ! FALSE)} 
end  if}  —  if  bypass! token_identifier) 

end  TYPE_DECLARATION} 


--  DISCRIMINANT_PART  -->   ! DISCRIMINANT_SPECIFICATION 

[}  DISCRIMINANT_SPECIFICATION]*  ) 
function  DISCRIMINA^fr_PART  return  boolean  is 
begin 

if  ! BYPASS! TOKEN_LEFT_PAREN))  then 

if  (DISCRIMINANT_SPECIFICATION)  then 
while  ! BYPASS! TOKEN_SEMICOLON))  loop 

if  not  !DISCRIMINANT_SPECIFICATION)  then 

SYNTAX_ERROR( "Discriminant  part")} 
end  if}  —  if  not  discriminant_specif ication 

end  loop} 
if  ! BYPASS! TOKEN_RIGHT_PAREN))  then 

return  (TRUE)} 
else 

SYNTAX_ERROR! "Discriminant  part"  ) } 
end  if}  —  if  bypass! token_right_paren) 

else 

SYNTAX_ERROR( "Discriminant  part")} 
end  if}  —  if  discriminant_specif ication 

else 

return  ! FALSE)} 
end  if}  —  if  bypass! token_left_paren) 

end  DISCRIMINANT_PART} 
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—  DISCRIMINANT_SPECIFICATION  — >   IDENTIFIER.LIST  :  NAME  l:=  EXPRESSION  ?] 
■function  DISCRIMINANT_SPECIFICATION  return  boolean  is 
begin 

if  (IDENTIFIER.LIST)  then 

if  ( BYPASS* TOKEN_COLON ) )  then 

if  (NAME)  then  —  check  for  type_mark 

if  ( BYPASS (TOKEN_ASSIGNMENT))  then 
if  (EXPRESSION)  then 

null  J 
else 

SYNTAX_ERROR( "Discriminant  soecif ication"  )  > 
end  ifj  --  if  axpression  statement 

end  ifi  —  if  bypass( token_assignment ) 

return  ( TRUE  )  > 
else 

SYNTAX_eRROR( "Discriminant  specif icat ion"  1  i 
end  ifv  —  if  name  statement 

else 

SYNTAX_ERROR( "Discriminant  specification'  U 
end  if>  —  if  bypass ( token_colon  ) 

else 

return  ( FALSE  )  S 
end  Hi  —  if  identif ier_Iist  statement 

end  0ISCRIMINANT_3PECIFICATIONj 


—  TYPE_0EFINITION  ~>   5NUMERATION_TYPE_0EFINITION 
~>   INTEGER_TYPi_0ErINITION 

~>   digits  FLOATING_aR_FIXED_POINT_CONSTRAINT 
~>   delta  FLOATING_CR_FIXEO_OOINT_CONSTRAINT 
— >   array  ARRAY_TYPE_DEFINITION 
~>   record  RECORD_rYPE_DEFINITION 
— >   access  SUBTYPE_INDICATION 
~>   new  SUBTYPE.INDICATION 
function  TYPE_DEFINITION  return  boolean  is 
begin 

if  (ENUMERATION_TYPE_DEFINITION)  then 

return  (TRUE)t 
elsif  (INTEGER_TYPE_DEFINITION)  then 

return  ( TRUE  )  i 
elsif  ( BYPASS! TOKEN_DIGITS))  or  else  ( BYPASS( TOKEN_DELTA  )  )  then 
if  ( FLOATING_OR_FIXED_POINT_CONSTRAINT )  then 

return  (TRUE)i 
else 

SYNTAX_ERROR( "Type  definition" ) \ 
end  Hi  —  f loating_or_f ixed_point_constraint 

elsif  (BYPASS(TOKEN_ARRAY))  then 
if  (ARRAY_TYPE_DEFINITION)  then 

return  (TRUE)i 
else 

SYNTAX_ERROR( "Type  definition" ) j 
end  iii  —  if  array_type_def inition 

elsif  (BYPASS(TOKEN_RECORD_STRUCTURE))  then 
if  (RECORD_TYPE_DEFINITION)  then 

return  (TRUE)v 
else 

SYNTAX_ERROR( "Type  definition"  )  i 
end  if>  —  if  record_type_def inition 

elsif  (BYPASS(TOKEN_ACCESS))  or  else  (BYPASS(TOKEN_NEH) )  then 
if  (SUBTYPE_INDICATION)  then 

return  (TRUE)> 
else 

SYNTAX_ERROR( "Type  definition" ) > 
end  if  J  —  if  subtype_indication 

else 
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return  ( FALSE ) \ 
end  i  f  i 
end  TYPE_DEFINITION> 


--  RECORD_TYPE_DEFINITION  — >   COMPONENT_LIST  end  record 
function  RECORD_TYPE_QEFINITION  return  boolean  is 
begin 

if  (COMPONENT_LIST)  then 

if  (BYPASS(TOKEN_END))  then 

if  ( BYPASSt  TOKEN_RECORD_STRUCTURE ) )  then 

return  (TRUE  )\ 
else 

3YNTAX_SRR0R( "Record  type  definition" U 
end  if>  —  if  bypass( token_record-5tnjcture  ) 

else 

3YNTAX_ERR0R(  "Record  type  definition")', 
end  Hi  —  if  bypass ( token_end)  ■ 

else 

return  ( FALSE  )v 
end  if>  —  if  component_list  statement 

end  RECORD_TYPE_DEFINITIONj 


—  C0MP0NENT_1.IST  — >   [  COMPONENT_0ECLARATION  ]*  [  VARIANT.PART  ?] 
— >   null  i 
function  COMPONENT_LIST  return  boolean  is 
begin 

while  I COMPONENT_OECLARATION1  loop 

nuilv 
end  loop  v 
if  (VARIANT_PART 1  then 

nuilj 
elsif  ',  BYPASS(TOKEN_NULL)  )  then 

if  (BYPASS(TOKEN_SEMICOLON))  then 

null( 
end  i  f ) 
end  i  f ( 

return  (TRUE)j 
end  COMPONENT_LISTj 


—  COMPONENT_DECLARATION  —>   IDENTIFIER_LIST  :  SUBTYPE_INDICATION 

[:=  EXPRESSION  ?]  > 
function  COMPONENT_DECLARATION  return  boolean  is 
begin 

if  (IDENTIFIER_LIST)  then 

if  (BYPASS(TOKEN_COLON))  then 
if  (SUBTYPE_INDICATION)  then 

if  (BYPASS(TOKEN_ASSIGNMENT))  then 
if  (EXPRESSION)  then 

if  ( BYPASSC TOKEN_SEMICOLON ) )  then 

return  (TRUE)> 
else 

SYNTAX_ERROR( "Component  declaration"  )  > 
end  if}  —  if  bypass ( toKen_semicolon) 

else 

SYNTAX_ERROR( "Component  declaration" ) ( 
end  if  I  —  if  expression  statement 

end  if>  —  if  bypass( token_assignment ) 

if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE)i 
else 

SYNTAX_ERROR( "Component  declaration" ) i 
end  if  J  —  if  bypass! token_semicolon) 

else 
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SYNTAX_ERROR( "Component  declaration" ) j 
end  if)  —  if  subtype_indication  statement 

else 

SYNTAX_ERROR( "Component  declaration" ) i 
end  Hi  —  if  bypass (  token_colon  ) 

else 

return  ( FALSE  )> 
end  if>  —  if  identif ier_list  statement 

end  COMPONENT_DECLARATION> 


—  VARIANT_PART  -->  case  identifier  is  [VARIANT]*  end  case  \ 
function  VARIANT_PART  return  boolean  is 
begin 

if  (BYPASS(TOKEN_CASE))  then 

if  (BYPASS(TOKEN_IDENTIFIER))  then 
if  (BYPASS(TOKEN_IS) )  then 
if  (VARIANT)  then 

while  (VARIANT)  loop 

nulli 
end  loop  i 
if  (BYPASS(TOKEN_END))  then 

if  ( BYPASS( TOKEN_CASE ) )  then 

if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE  )> 
else 

SYNTAX_ERROR( "Variant  part"  )  i 
end  if  I  —  if  bypass ( token_semicolon) 

else 

SYNTAX_ERROR( "Variant  part" ) v 
end  if  J  —  if  bypass ( token_case  ) 

else 

SYNTAX_ERROR( "Variant  part"  )  \ 
end  if>  —  if  bypass ( token_end) 

else 

SYNTAX_ERROR( "Variant  part")j 
end  Hi  —  if  variant  statement 

else 

SYNTAX_ERROR( "Variant  part"  )  v 
end  if  J  —  if  bypass( token_is) 

else 

SYNTAX_ERROR( "Variant  part")> 
end  if>  —  if  bypass ( token_ identif ier  ) 

else 

return  ( FALSE  )> 
end  Hi  —  if  bypass ( token_case) 

end  VARIANT_PART > 


—  VARIANT  — >  when  CHOICE  [   CHOICE]*  =>  COMPONENT_LIST 
function  VARIANT  return  boolean  is 
begin 

if  (BYPASS(TOKEN_WHEN))  then 
if  (CHOICE)  then 

while  (BYPASS(TOKEN_BAR))  loop 
if  not  (CHOICE  )  then 

SYNTAX_ERROR( "Variant" ) i 
end  if>  —  if  not  choice  statement 

end  loop( 

if  (BYPASS(TOKEN_ARROW))  then 
if  ( COMPONENT_LIST )  then 

return  (TRUE)j 
else 

SYNTAX_ERROR( "Variant" ) > 
end  iii  —  if  component_list  statement 

else 

SYNTAX_ERROR( "Variant" )> 
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end  i  f  > 
else 

SYNTAX_ERROR( "Variant" ) \ 
end  i  f ( 
else 

return  ( FALSE  )v 
end  i  f ( 
end  VARIANT  J 


if  bypass ( toKen_a mow  ) 


—  if  choice  statement 


—  if  bypass ( token_when  ) 


—  WITH_OR_USE_CLAUSE  — >   identifier  [,  identifier]*  \ 
function  WITH_OR_USE_CLAUSE  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IDENTIFIER))  then 
while  (BYPASS(TOKEN_COMMA))  loop 

if  not  (BYPASS(TOKEN_IDENTIFIER))  then 
SYNTAX_ERROR<"With  or  use  clause")! 
end  i  f ( 
end  loop  i 
if  ( BYPASS! TOKEN_SEMICOLON))  then 

return  ( TRUE  )  i 
else 

SYNTAX_ERROR("With  or  use  clause" ) > 
end  if  I  —  if  bypass ( token_semico Ion) 

else 

return  ( FALSE  )> 
end  ifv  —  if  bypassC token_identif ier  ) 

end  WITH_OR_USE_CLAUSEv 


--  FORMAL_PART  — >   ( PARAMETER_SPECIFICATION  [j  PARAMETER_SPECIFICATION  ]*  ) 
function  FORMAL_PART  return  boolean  is 
begin 

if  (BYPASS(TOKEN_LEFT_PARENn  then 
if  (PARAMETER.SPECIFICATION)  then 

while  (BYPASS(TOKEN_SEMICOLON))  loop 

if  not  (PARAMETER_SPECIFICATION)  then 

SYNTAX_ERR0R1 "Formal  part"  )  V 
end  ifv  —  if  not  parameter_specif ication  statement 

end  loop( 
if  ( BYPASS! TOKEN_RIGHT_PAREN))  then 

return  (TRUE)> 
else 

SYNTAX_ERROR< "Formal  part"  )  j 
end  ifv  —  if  bypass! token_right_paren)  statement 

else 

SYNTAX_ERROR I "Formal  part")> 
end  if  J  —  if  parameter_specif ication  statement 

else 

return  (FALSE)) 
end  if)  —  if  bypass! token_left_paren)  statement 

end  FORMAL_PART> 


~  IDENTIFIER.DECLARATION  — >   IDENTIFIER_LIST  :  IDENTIFIER_DECLARATION_TAIL 
function  IDENTIFIER_DECLARATION  return  boolean  is 
begin 

if  (IDENTIFIER.LIST)  then 

if  ! BYPASS! TOKEN.COLON))  then 

if  (IDENTIFIER_DECLARATION_TAIL)  then 

return  (TRUE)> 
else 

SYNTAX_ERROR( "Identifier  declaration" ) > 
end  if  J  —  if  identifier  list  statement 

else 

SYNTAX_ERROR( "Identifier  declaration"  ) » 
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end  if  J  —  if  bypass  ( ■token_co  Ion) 

else 

return( FALSE  )> 
end  Hi  —  if  identifier  list  statement 

end  IDENTIFIER_DECLARATIONj 


~  IDENTIFIER_DECLARATION_TAIL  ~>  exception  EXCEPTION_TAIL 

— >  constant  CONSTANT_TERM 
~>  array  ARRAY_TYPE_DEFINITION 

[  :=  EXPRESSION  ?1  ; 
— >  NAME   IDENTIFIER_TAIL 
function  I0ENTIFIER_0ECLARATION_TAIL  return  boolean  is 
begin 

if  I  BYPASS! TOKEN_cXCEPTION))  then 
if  (EXCEPTION_rAIL J  then 

return  1  TRUE  ; ', 
else 

SYNTAX_ERROR( "Identifier  declaration  tail")i 
end  ifv  —  if  exception  tail  statement 

els  if  ( BYPASS( TOKEN_CONSTANT  )  )  then 
if  (CONSTANT_TERM)  then 

return  (TRUE)} 
else 

SYNTAX_ERROR(  "Identifier  declaration  tail"n 
end  ifi  —  if  cons tant_ term  statement 

elsif  (BYPASS(TOKEN_ARRAY ) )  then 
if  (ARRAY_TYPE_DEFINITION)  then 

if  (  bypass;  TOKEN_ASSIGNMENTn  then 
if  (EXPRESSION)  then 

nuilv 
else 

SYNTAX_tRROR( "laentif ier  declaration  tail")} 
end  if  I  —  if  expression  statement 

end  if>  --  if  bypass*  toKen_assignment ) 

else 

SYNTAX_ERROR( "Identifier  declaration  tail")} 
end  if}  —  if  array_type_def inition 

if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE)} 
else 

SYNTAX_ERROR( "Identifier  declaration  tail")} 
end  if}  —  if  bypass! token_semicolon) 

elsif  (NAME)  then 

if  (IDENTIFIER_TAIL)  then 

return  (TRUE  )} 
else 

SYNTAX_ERROR( "Identifier  declaration  tail")} 
end  if}  —  if  identif ier_tail 

else 

return  ( FALSE  ) } 
end  if}  —  if  bypass ( token_except ion) 

end  IDENTIFIER_DECLARATION_TAIL} 


~  EXCEPTION_TAIL  ~>   } 

— >  renames  NAME  } 
function  EXCEPTION_TAIL  return  boolean  is 
begin 

if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE)} 
elsif  (BYPASS(TOKEN_RENAMES))  then 
if  (NAME)  then 

if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE)} 
else 

SYNTAX_ERROR( "Exception  tail"  ) » 
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end  i  f \ 
else 

SYNTAX_ERROR( "Exception  tail")> 
end  i  i \ 
else 

return  ( FALSE  )v 
end  i  f } 
end  EXCEPTION_TAILj 


if  bypass! token_semicolon ) 


—  if  name  statement 


if  bypass( toKen_semicolon) 


—  EXCEPTION.CHOICE  — >   identifier 
— >   others 
function  £XCEPTION_CHOICE  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IDENTIFIER  M  then 

return  (TRUE  ); 
eisif  i BYPASS! TOKEN.OTHERS))  then 

return  ( TRUE  )  > 
else 

return  ( FALSE  )\ 
end  if i 
end  EXCEPTION_CHOICE J 


--  CONST ANT.TERM  — >   array  ARRAY_TYPE_DEFINITION  [:=  EXPRESSION  ?3  5 
-->   :=  EXPRESSION  i 
~>   NAME   IDENTIFIER_TAIL 
function  CONSTANT_TERM  return  boolean  ;3 
begin 

if  ( BYPASS! TOKEN_ARRAY ) )  ^hen 

if  ( ARRAY_TYPE_0EFINITION)  then 

if  I  BYPASS! TOKEN_ASSIGNMENT  )  )  then 
if  (EXPRESSION)  then 

nullv 
else 

SYNTAX_ERRORI "Constant  term"  )  i 


end  i  f ( 
end  i  f ( 
else 

SYNTAX_ERROR( "Constant  term"  )  J 
end  if} 
if  !  BYPASS!  TOKEN_SEMICOLONn  then 

return  ! TRUE  )j 
else 

SYNTAX_ERROR! "Constant  term")  J 
end  if} 
els  if  ! BYPASS! TOKEN.ASSIGNMENT ) )  then 
if  (EXPRESSION)  then 

if  ! BYPASS! TOKEN_SEMICOLON))  then 

return  (TRUE)} 
else 

SYNTAX_ERROR( "Constant  term"  ) } 
end  i  f } 
else 

SYNTAX_ERROR! "Constant  term" )} 
end  i  f } 
els  if  I  NAME)  then 

if  (IDENTIFIER.TAIL)  then 

return  ! TRUE  ) } 
else 

SYNTAX_ERRQR( "Constant  term")j 
end  if} 
else 

return  (FALSE)) 
end  if} 
end  CONSTANT_TERM} 


—  if  expression  statement 
--  if  bypass! token_assignment ) 


if  array_type_def inition 


—  if  bypass! token_semicolon) 


if  bypass ( token_semicolon) 

—  if  expression  statement 

—  if  identif ier_tail  statement 
—  if  bypass ( token_array) 
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—  IDENTIFIER_TAIL  — >   [CONSTRAINT  ?]  [:=  EXPRESSION  ?1  j 
— >   [renames  NAME  ?]  J 
function  IDENTIFIER_TAIL  return  boolean  is 
begin 

i-f  (CONSTRAINT)  then 

null  I 
end  Hi  —  if  constraint  statement 

if  (BYPASS(TOKEN_RENAMES))  then 
if  (NAME)  then 

null) 
else 

SYNTAX_ERROR( "Identifier  tail")) 
end  if)  —  if  name  statement 

end  ifi  —  if  bypass ( token_renames ) 

if  (BYPASS(TOKEN_ASSIGNMENT))  then 
if  (EXPRESSION)  then 

null( 
else 

SYNTAX_ERROR( "Identifier  tail")) 
end  if)  —  if  expression  statement 

end  if)  —  if  bypass ( token_assignment ) 

if  (BYPASS(T0KEN_SEMIC0L0N1)  then 

return  (TRUE)) 
else 

return  (FALSE)) 
end  if)  —  if  bypass( token_semicolon) 

end  IDENTIFIER_TAIL) 


~  PARAMETER_SPECIFICATION  -->   IDENTIFIER.LISf  :  MODE   NAME  [:=  EXPRESSION  ?] 
function  PARAMETER_SPECIFICATION  return  boolean  is 
begin 

if  (IDENTIFIER_LIST)  then 

if  (BYPASS(TOKEN_COLON))  then 
if  (MODE)  then 

if  (NAME)  then  —  check  for  type_mark 

if  (BYPASS(TOKEN_ASSIGNMENT))  then 
if  (EXPRESSION)  then 

null) 
else 

SYNTAX_ERROR( "Parameter  specification" ) ) 
end  if)  —  if  expression  statement 

end  if)  —  if  bypass ( token_assignment ) 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Parameter  specification" ) ) 
end  if)  --  if  name  statement 

else 

SYNTAX_ERROR( "Parameter  specification"  ) ) 
end  if)  —  if  mode  statement 

else 

SYNTAX_ERROR( "Parameter  specification" )) 
end  if)  —  if  bypass ( token_colon) 

else 

return  (FALSE)) 
end  if)  —  if  identif ier_list  statement 

end  PARAMETER_SPECIFICATION) 


—  IDENTIFIER_LIST  -->   identifier  [,  identifier!* 
function  IDENTIFIER_LIST  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IDENTIFIER))  then 
while  ( BYPASS( TOKEN.COMMA  )  )  loop 

if  not  (BYPASS(TOKEN_IDENTIFIER))  then 
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SYNTAX_ERROR( "Identifier  list"  )  i 
end  if  I  —  if  not  bypass ( token_ident if er)  statement 

end  loop) 
return  (TRUE)> 
else 

return  ( FALSE  )> 
end  if}  —  if  bypass! token_identif ier )  statement 

end  IDENTIFIER_LISTj 


—  MODE  — >   [in  ?1 
— >   in  out 
—  >  out 
function  MODE  return  boolean  is 
begin 

if  ( BYPASS! T0KEN_IN)1  then 

if  ( BYPASS! TOKEN_OUT  )  )  then 

null  J 
end  i  f  j 
els  if  I  BYPASS! TOKEN_OUT))  then 

null  I 
end  i  f  i 

return  !TRUE)} 
end  MOOEi 


—  DESIGNATOR  — >   identifier 

-->   string_literal 
function  DESIGNATOR  return  boolean  is 
begin 

if  I  BYPASS! TOKEN_IDENTIFIER))  then 

return  I  TRUE  ); 
elsif  ! BYPASS! TOKEN_STRING_LITERAL))  then 

return  ITRUEJj 
else 

return  (FALSE)} 
end  i  f } 
end  DESIGNATOR} 


~  SIMPLE_STATEMENT  — >  null  } 

— >  ASSIGNMENT_OR_PROCEDURE_CALL 
~>  exit  EXIT_STATEMENT 
~>   return  RETURN_STATEMENT 
— >  goto  GOTO_STATEMENT 
~>  delay  DELAY_STATEMENT 
~>  abort  ABORT_STATEMENT 
-->   raise  RAISE_STATEMENT 
function  SIMPLE_STATEMENT  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_NULL))  then 

if  ( BYPASS! TOKEN_SEMICOLON))  then 

return  (TRUE)} 
else 

SYNTAX_ERROR( "Simple  statement"  ) } 
end  i  f } 
elsif  ! ASSIGNMENT_OR_PROCEDURE_CALL  )  then 
return  I  TRUE)} 


includes  a  check  for  a 
code  statement  and  an 


entry  call  statement. 


elsif  ( BYPASS! TOKEN_EXIT))  then 
if  ( EXIT_STATEMENT  )  then 

return  (TRUE)} 
else 

SYNTAX_ERROR( "Simple  statement" ) } 
end  i  f } 
elsif  (BYPASS(TOKEN_RETURN))  then 
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if  ( RETURN_STATEMENT )  then 

return  ( TRUE  )  \ 
else 

SYNTAX_ERROR( "Simple  statement"  )  j 
end  i-fj 
els  if  (BYPASS(TOKEN_GOTO))  then 
if  ( GOTO_STATEMENT )  then 

return  (TRUE  )v 
else 

SYNTAX_ERROR( "Simple  statement" ) 5 
end  i  f  j 
elsif  ( BYPASS! TOKEN_DELAY))  then 
if  (OELAY.STATEMENTI  then 

--eturn  (  TRUE  J  i 
else 

SYNTAX_£RROR( "Simple  statement"  1  \ 
end  if; 
elsif  (  BYPASS!  TOKEN_ABORTn  then 
if  ( AB0RT_STATEMENT1  then 

return  (TRUE); 
else 

SYNTAX_ERROR( "Simple  statement"  )  j 
end  i  f  i 
elsif  ( BYPASS! T0KEN_RAISE)1  then 
if  < RAISE_STATEMENT)  then 

return  (TRUE  )  i 
else 

SYNTAX_ERR0R1 "Simple  statement" U 
end  i  f ; 
else 

return  ( FALSE  1 » 
end  i  f  > 
end  SIMPLE_STATEMENTi 


—  ASSIGNMENT_OR_PROCEDURE_CALL  — >  NAME  :=  EXPRESSION  j 

__>  NAME  i 
function  ASSIGNMENT_OR_PROCEDURE_CALL  return  boolean  is 
begin 

if  (NAME)  then 

if  (  BYPASS!  TOKEN_ASSIGNMENTn  then 
if  (EXPRESSION)  then 

if  ( BYPASS! TOKEN.SEMICOLON))  then 

return  (TRUE);  --  parsed  an  assignment  statement 

else 

SYNTAX_ERROR( "Assignment  or  procedure  call")> 
end  if  J  —  if  bypass( token_semicolon) 

else 

SYNTAX_ERROR( "Assignment  or  procedure  call"); 
end  if  I  —  if  expression  statement 

elsif  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE);  —  parsed  a  procedure  call  statement 

else 

SYNTAX_ERROR( "Assignment  or  procedure  call")j 
end  if;  —  if  bypass ( token_assignment ) 

else 

return  (FALSE); 
end  if;  —  if  name  statement 

end  ASSIGNMENT_OR_PROCEDURE_CALL  J 


—  LABEL  — >  «  identifier  » 
function  LABEL  return  boolean  is 
begin 

if  (BYPASS(TOKEN_LEFT_BRACKET))  then 
if  ( BYPASS! TOKEN_IDENTIFIER))  then 

if  (BYPASS(TOKEN_RIGHT_BRACKET))  then 
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return  (TRUElj 
else 

SYNTAX_ERROR( "Label"  )  j 
end  i  f  i 
else 

SYNTAX_ERROR( "Label"  )  \ 
end  i  f  i 
else 

return  ( FALSE ) > 
end  i  f  > 
end  LABEL) 


—  if  bypass! token_right_bracket ) 


it  bypasss( token_identitier ) 


it  bypass! token_lef t_bracket ) 


~  £NTRY_0ECLARATION  — >   entry  identifier  i ( DISCRETE_RANGE  )  ?j 

[FORMAL.PART  ?]  ; 
function  ENTRY^OECLARATION  return  boolean  is 
begin 

if  (BYPASS(TOKEN_cNTRYn  ^hen 

if  iBYPASS(T0KEN_IDENTIrIER1  )  then 
if  ( BYPASS! TOKEN_LEFT_PAREN)  I  then 
if  1 DISCRETE_RANGE  )  then 

if  (BYPASS(TOKEN_RIGHT_PAREN))  then 

null; 
else 

3YNTAX_cRR0Rl "Entry  declaration"  1  i 
end  if>  —  if  bypass! token_right_paren > 

else 

SYNTAX_5RR0R( "Entry  declaration"  )  \ 
•2nd  ifv  —  if  discrete_-ange  statement 

and  if)  —  if  bypassi toKen_Lef t_paren i 

if  i FORMAL_?ART  1  then 

null» 
end  if»  —  if  formal_part  statement 

if  ( BYPASS! T0KEN_3EMIC0L0N))  then 

return  (TRUE  J  > 
else 

SYNTAX_ERROR( "Entry  declaration"  )  j 
end  if)  —  if  bypass! token_semicolon) 

else 

SYNTAX.ERRORI "Entry  declaration"  ) ) 
end  if)  —  if  bypass! token_identifier) 

else 

return  1  FALSE  ) ) 
end  if)  —  if  bypassi token_en try ) 

end  ENTRY_DECLARATION) 


—  REPRESENTATION_CLAUSE  ~>   for  NAME  use  record  RECORD_REPRESENTATION_CLAUSE 

~>   for  NAME  use  [at  ?]  SIMPLE_EXPRESSION) 
function  REPRESENT ATION_CLAUSE  return  boolean  is 
begin 

if  ! BYPASS! TOKEN_FOR))  then 
if  !NAME)  then 

if  ! BYPASSI TOKEN_USE))  then 

if  ! BYPASS! TOKEN_RECORD_STRUCTURE))  then 
if  !RECORD_REPRESENTATION_CLAUSE)  then 

return  !TRUE)) 
else 

SYNTAX_ERROR! "Representation  clause"  )) 
end  if)  —  if  record_representation_clause 

els if  ! BYPASSI TOKEN.AT  ) )  then 
if  !SIMPLE_EXPRESSION)  then 

if  ! BYPASS! TOKEN_SEMICOLON))  then 

return  !TRUE)) 
else 

SYNTAX_ERRORl "Representation  clause"  ) ) 
end  if)  —  if  bypass! token_semicolon) 
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else 

SYNTAX_ERROR(  "Represen-tation  clause"  )  > 
end  if  J  —  if  simple_expression  statement 

elsif  (SIMPLE_EXPRESSION)  then 

if  (BYPASS(TOKEN_SEMICOLON) )  then 

return  (TRUE)> 
else 

SYNTAX_ERROR( "Representation  clause" ) \ 
end  ifv  —  if  bypass( token_semicolon) 

else 

SYNTAX_ERROR( "Representation  clause"  )  > 
end  if  J  —  if  bypass ( token_record) 

else 

SYNTAX_ERROR( "Representation  clause"  1  > 
end  if)  --  if  bypass! token_usel 

else 

SYNTAX_ERROR( "Representation  clause" U 
end  if»  —  if  name  statement 

else 

return  ( FALSE )l 
end  if)  —  if  bypass ( token_f or) 

end  REPRESENT ATION_CLAUSE  > 


—  REC0RD_REPRESENTATION_CLAUSE  ~>   [at  mod  SIMPLE.EXPRESSION  ?] 

[NAME  at  SIMPLE.EXPRESSION  range  RANGES!* 
end  record  i 
function  RECORD_REPRESEh<TATION_CLAUSE  return  boolean  is 
begin 

if  ( BYPASS! TOKEN.AT))  then 

if  ( BYPASS! TOKEN.MOD  n  then 
if  !SIMPLE_EXPRESSION)  then 

null) 
else 

SYNTAX_ERR0R1 "Record  representation  clause")} 
end  if  J  —  if  simple_expression 

else 

SYNTAX_ERROR( "Record  representation  clause")) 
end  if)  —  if  bypass! token_mod) 

end  if)  —  if  bypass! token_at ) 

while  !NAME)  loop 

if  1  BYPASS! TOKEN_AT))  then 

if  !SIMPLE_EXPRESSION)  then 

if  ! BYPASS! TOKEN_RANGE))  then 
if  ! RANGES)  then 

null) 
else 

SYNTAX.ERROR! "Record  representation  clause")) 
end  if)  —  if  ranges  statement 

else 

SYNTAX_ERROR! "Record  representation  clause")) 
end  if)  —  if  bypass! token_range ) 

else 

SYNTAX_ERROR! "Record  representation  clause")) 
end  if)  —  if  simple_expression 

else 

SYNTAX_ERROR! "Record  representation  clause")) 
end  if)  —  if  bypass! token_at ) 

end  loop) 
if  ! BYPASS! TOKEN_END))  then 

if  1BYPASS!T0KEN_REC0RD_STRUCTURE))  then 
if  ! BYPASS! TOKEN_SEMICOLON))  then 

return  !TRUE)) 
else 

SYNTAX_ERROR! "Record  representation  clause")) 
end  if)  —  if  bypass! token_semicolon) 

else 

SYNTAX_ERROR! "Record  representation  clause")) 


143 


end  if) 
else 

re-turn  (  FALSE  )  i 
end  i  f i 
end  RECORD_REPRESENTATION_CLAUSE> 


if  bypass ( token_record_s true ture) 


if  bypass ( toKen_end) 


end  PARSER_2> 
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DESCRIPTION:   This  package  contains  thirty-five  functions 

—  that  make  up  the  baseline  productions  for  our  top-down,  — 
recursive  descent  parser.   Each  function  is  preceaed 

—  by  the  grammar  proauctions  they  are  implementing. 

with  PARSER,*,  3YPASS_ FUNCTION,  HALSTEAD_METRIC .  GLOBAL_?ARSER ,  GLOBAL i 
use  PARSER_4,  SYPASS_FUNCTION,  HALSTEAD.iiETRIC ,  GL08AL_?ARSER,  GLOBAL > 

package  PARSER_3  is 

function  SUBTYPE_INDICATION  return  boolean i 

function  ARRAY_TYPE_0EFINITION  return  boolean i 

function  CHOICE  return  boolean v 

function  ITERATION_SCHEME  return  booleanv 

function  L00P_PARAt1ETER_SPECIrICATI0N  return  boolean* 

function  EXPRESSION  return  booieani 

function  RELATION  return  boolean; 

function  DELATION  .TAIL  return  oooleanv 

function  SIMPLE_5XPRESSI0N  return  boolean; 

function  SIMPLE_EXPRE3SI0N_:aIL  return  boolean; 

function  TERM  return  boolean; 

function  FACTOR  r-eturn  boolean; 

function  PRIMARY  return  boolean; 

function  CONSTRAINT  return  boolean; 

function  FLOATING_OR_FIXED_POINT_CONSTRAINT  return  boolean i 

function  INDEX_CONSTRAINT  return  boolean > 

function  RANGES  return  boolean; 

function  AGGREGATE  return  boolean; 

function  COMPONENT_ASSOCIATION  return  boolean; 

function  ALLOCATOR  return  boolean; 

function  NAME  return  boolean; 

function  NAME_TAIL  return  boolean; 

function  LEFT_PAREN_NAME_TAIL  return  boolean; 

function  ATTRIBUTE_DESIGNATOR  return  boolean; 

function  INTEGER_TYPE_DEFINITION  return  boolean; 

function  DISCRETE_RANGE  return  boolean; 

function  EXIT_STATEMENT  return  boolean; 

function  RETURN_STATEMENT  return  boolean; 

function  GOTO_STATEMENT  return  boolean; 

function  DELAY_STATEMENT  return  boolean; 

function  ABORT_STATEMENT  return  boolean; 

function  RAISE_STATEMENT  return  boolean; 
end  PARSE R_3; 


package  body  PARSER_3  is 

—  SUBTYPE_INDICATION  ~>  NAME  [CONSTRAINT  ?] 
function  SUBTYPE_INDICATION  return  boolean  is 
begin 

if  (NAME)  then  —  check  for  type_mark 

if  (CONSTRAINT)  then 

null; 
end  i  f ; 
return  (TRUE); 
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else 

return  (FALSE)} 
end  i  i j 
end  SUBTYPE_INDICATION> 


—  ARRAY_TYPE_DEFINITION  — >   (INDEX.CONSTRAINT  of  SUBTYPE.INDICATION 

—  ihis  -function  parses  both  constrained  and  unconstrained  arrays 
function  ARRAY_TYPE_DEFINITION  return  boolean  is 

begin 

if  (BYPASSfTOKEN_LEFT_PAREN))  then 
if  (INOEX_CONSTRAINT 1  then 
if  (BYPASSiTOKEN.OFn  then 

if  <SUBTYPE_INDICATION)  then 

return  (TRUE  i  i 
else 

3YNTAX_ERR0R( "Array  definition" 1 > 
and  ifi  —  if  subtype. indication 

alse 

SYNTAX_ERROR( "Array  definition" 1 i 
end  if;  —  if  bypass ( token_of  ) 

else 

SYNTAX_ERROR( "Array  definition" 1 > 
end  if  J  —  if  index_oonstraint  statement 

else 

return  ( FALSE U 
end  ifi  —  if  bypasst toKen_lef t_paren J 

end  ARRAY_TYPE_DEFINITIONi 


~  CHOICE  — >   EXPRESSION  [ . .3IMPLE_EXPRESSI0N  ?] 
-->   EXPRESSION  [CONSTRAINT  ?] 
— >   others 
function  CHOICE  return  boolean  is 
begin 

if  (EXPRESSION)  then 

if  (BYPASS(TOKEN_RANGE_DOTS))  then  ~  check  for  discrete.range 
if  (SIMPLE_EXPRESSION)  then 

null) 
else 

SYNTAX_ERROR( "Choice" ) i 
end  ifi  —  if  simple_expression  statement 

els  if  (CONSTRAINT)  then 

null; 
end  Hi  —  if  bypass  token_range_dots 

return  (TRUE  )> 
els  if  (BYPASS(TOKEN_OTHERS))  then 

return  (TRUE)j 
else 

return  ( FALSE  )j 
end  i  f  i 
end  CHOICE > 


—  ITERATION_SCHEME  — >  while  EXPRESSION 

— >   for  LOOP_PARAMETER_SPECIFICATION 
function  ITERATION_SCHEME  return  boolean  is 
begin 

if  ( BYPASS( TOKEN_WHILE ) )  then 

NESTING_METRIC( WHILE_CONSTRUCT ) ) 
if  (EXPRESSION)  then 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Iteration  scheme"  ) ) 
end  i  f  i 
els  if  (BYPASS(TOKEN_FOR))  then 
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NESTING_METRIC( FOR_CONSTRUCT ) V 

if  (LOOP_PARAMETER_SPECIFICATION)  then 

re-turn  (TRUE)l 
else 

SYNTAX_ERROR( "lieration  scheme"  )  j 
end  i  f  i 
else 

return  ( FALSE  )  i 
end  if» 
end  ITERATION_SCHEME> 


~  LOOP_PARAMETER_SPECIFICATION  -->   identifier  in  I  reverse  ?]  DISCRETE_RANGE 
function  LOOP_PARAMETER_SPECIFICATICN  return  boolean  is 
begin 

if  (BYPASS(T0KEN_IDENTIFIER1  )  then 
if  (BYPASS(TOKEN_IN)  )  then 

if  (BYPASS(TOKEN_REVERSE))  then 

null  V 
end  Hi  —  if  bypass ( token_reverse) 

if  (DISCRETE.RANGE)  then 

return  (TRUE)> 
else 

SYNTAX_ERROR( "Loop  parameter  specif icat ion"  )j 
end  if>  —  if  discrete_range  statement 

else 

SYNTAX_ERROR( "Loop  parameter  specif icat ion"  )  > 
end  if>  —  if  bypass ( token_ in  ) 

else 

return  ( FALSE H 
end  if>  --  if  bypass! token_identif ier  ) 

end  LOOP_PARAMETER_SPECIFICATIONv 


—  EXPRESSION  -->  RELATION  [RELATION_TAIL  ?1 
function  EXPRESSION  return  boolean  is 
begin 

if  (RELATION)  then 

if  (RELATION_TAIL)  then 

null> 
end  ifv  —  if  relation_tail  statement 

return  (TRUE)> 
else 

return  (FALSE)} 
end  if  J  —  if  relation  statement 

end  EXPRESSION  I 


~  RELATION  — >  SIMPLE.EXPRESSION  [SIMPLE_EXPRESSION_TAIL  ?] 
function  RELATION  return  boolean  is 
begin 

if  (SIMPLE_EXPRESSION)  then 

if  (SIMPLE_EXPRESSION_TAIL)  then 

null> 
end  if  I  —  if  simple_expression_tail  statement 

return  (TRUE)i 
else 

return  (FALSE)) 
end  if  J  —  if  simple_expression  statement 

end  RELATION) 


RELATION_TAIL  — >   (and  I  then  ?]  RELATION]* 
— >   (or  (else  ?1  RELATION]* 
— >   (xor  RELATION]* 
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function  RELATION_TAIL 
begin 

while  (BYPASS( TOKEN 
if  (BYPASS(  TOKEN. 

null) 
end  i  f  i 

if  not  (RELATION 
SYNTAX_ERROR( 
end  i  f  j 
end  loop  i 

while  (BYPASS (TOKEN. 
if  (BYPASS( TOKEN 

null) 
end  i  f ) 

if  not  (RELATION 
SYNTAX_ERROR( 
end  i  i ) 
end  loop ) 

while  (BYPASSl TOKEN 
if  not  (RELATION 
SYNTAX_ERROR( 
end  i  f ) 
end  loop) 
return  (TRUE)) 
end  RELATION_TAIL) 


return  boolean  is 

LAND))  loop 
THEN))  then 


)  then 

"Relation  tail")) 


l_OR))  loop 
ELSE))  then 


)  then 

■Relation  tail")) 


_XOR))  loop 
)  then 
'Relation  tail")) 


--  if  bypass ( token_ then) 

•-  if  not  relation  statement 

--  if  bypass ( token_else) 

--  if  not  relation  statement 

—  if  not  relation  statement 


~  SIMPLE_EXPRESSION  -->   t+  ?1  TERM  [BINARY_ADOING_OPERATOR   TERM]* 
~>   [-  ?]  TERM  [BINARY  ADDING_OPERATOR   TERM]* 
function  SIMPLE_EXPRESSION  return  boolean  is 
begin 

if  (BYPASS(TOKEN_PLUS)  or  8YPASS(T0KEN_MINUS ) )  then 
if  (TERM)  then 

while  (BINARY_ADDING_OPERATOR)  loop 
if  not  (TERM)  then 

SYNTAX_ERROR( "Simple  expression"  )) 
end  if)  —  if  not  term  statement 

end  loop ) 
return  (TRUE)) 
else 

SYNTAX_ERROR( "Simple  expression")) 
end  if)  —  if  term  statement 

elsif  (TERM)  then 

while  (BINARY_ADDING_OPERATOR)  loop 
if  not  (TERM)  then 

SYNTAX_ERROR( "Simple  expression"  ) ) 
end  if)  —  if  not  term  statement 

end  loop ) 
return  (TRUE)) 
else 

return  ( FALSE ) ) 
end  if)  —  if  bypass ( token_plus )  et  al  statement 

end  SIMPLE_EXPRESSION) 


~  SIMPLE_EXPRESSION_TAIL  —>   RELATIONAL_OPERATOR   SIMPLE_EXPRESSION 

~>   [not  ?1  in  RANGES 
— >   [not  ?1  in  NAME 
function  SIMPLE_EXPRESSION_TAIL  return  boolean  is 
begin 

if  (RELATIONAL.OPERATOR)  then 
if  (SIMPLE_EXPRESSION)  then 

return  ( TRUE  ) ) 
else 

SYNTAX_ERROR( "Simple  expression  tail")) 
end  if)  —  if  simple_expression  statement 

elsif  ( BYPASS( TOKEN_NOT ) )  then 
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if  (BYPASS(T0KEN_IN1  )  then 
if  (RANGES)  then 
return  (TRUE)i 
elsif  (NAME)  then  —  check  for  type_mark 

return  (TRUE  )j 
else 

SYNTAX_ERROR( "Simple  expression  tail")i 
end  ifv  --if  ranges  statement 

else 

SYNTAX_ERROR( "Simple  expression  tail")j 
end  if  J  --  if  bypass ( token_ in )  statement 

elsif  (BYPASS(TOKEN_IN))  then 
if  (RANGES)  then 

return  ( TRUE  )v 
elsif  (NAME)  then  —  check  for  type_mark 

return  i TRUE  )  i 
else 

3YNTAX_SRR0R( "Simple  axoression  tail")v 
end  ifv  —  if  ranges  statement 

else 

return  ( FALSE  )  V 
end  if>  —  if  relationai_operator  statement 

end  SIMPLE_EXPRESSI0N_TAIL5 


~  TERM  -->   FACTOR  [MULTIPLYING_OPERATOR   FACTOR]* 
function  TERM  return  boolean  is 
begin 

if  (FACTOR)  then 

while  (MULTIPLYING_OPERATOR I  iooo 
if  not  i  FACTOR)  then 

SYNTAX_=RROR( "Term" ) i 
end  if;  —  if  not  factor  statement 

end  loop  i 
return  (TRUE  )v 
else 

return  ( FALSE ) i 
end  a  I  —  if  factor  statement 

end  TERM  I 


—  FACTOR  — >   PRIMARY  l*it   PRIMARY  ?] 
— >   abs  PRIMARY 
~>   not  PRIMARY 
function  FACTOR  return  boolean  is 
begin 

if  (PRIMARY)  then 

if  (BYPASS(TOKEN_EXPONENT))  then 
if  (PRIMARY)  then 

nullj 
else 

SYNTAX_ERROR( "Factor"  )  j 
end  if  I  —  if  primary  statement 

end  if  J  —  if  bypass ( token_exponent )  statement 

return  (TRUE)i 
elsif  (BYPASS(TOKEN_ABSOLUTE))  then 
if  (PRIMARY)  then 
return  (TRUE)v 
else 

SYNTAX_ERROR( "Factor" )  \ 
end  if  J  —  if  primary! abs)  statement 

elsif  (BYPASS(TOKEN_NOT))  then 
if  (PRIMARY)  then 
return  (TRUE)j 
else 

SYNTAX_ERROR( "Factor"  )  > 
end  if  J  —  if  primary(not)  statement 
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else 

re-turn  (FALSE)) 
end  if)  —  if  primary  statement 

end  FACTOR) 


PRIMARY  — > 

numeric_literal 

—  > 

null 

—  > 

string_literal 

—  > 

new  ALLOCATOR 

—  > 

NAME 

--> 

AGGREGATE 

on  PRIMARY  return  oooiean  is 

(8YPASS(T0KE 

N_NUMERIC_LITERAL ) ) 

function 
begin 

if  (8YPASS(T0KEN_NUMERIC_LITERALn  then 

return  i  TRUE  ) ; 
alsif  !BYPASSlTOKEN_MULLn  then 

return  ( TRUE  )  i 
elsif  ( 3YPASS( TOKEN_STRING_LITERAL ) )  then 

return  (TRUE  )> 
elsif  I  BYPASS! TOKEN_NEW  )  )  then 
if  (ALLOCATOR)  then 

return  (TRUE  )) 
else 

SYNTAX_ERROR( "Primary" ) > 
end  if)  —  if  allocator  statement 

elsif  (NAME!  then 
return  (TRUE)) 
elsif  'AGGREGATE)  then 

return  ; TRUE  ) ) 
else 

return  ( FALSE ) ) 
end  ifi  —  if  bypass! token_lef t_paren  ) 

end  PRIMARY) 


—  CONSTRAINT  -->   range  RANGES 
— >   range  <> 

— >   digits  FL0ATING_OR_FIXED_POINT_CONSTRAINT 
— >   delta  FLOATING_OR_FIXED_POINT_CONSTRAINT 
-->   ( INDEX.CONSTRAINT 
function  CONSTRAINT  return  boolean  is 
begin 

if  (BYPASS(TOKEN_RANGE))  then 
if  (RANGES)  then 
return  (TRUE)) 
elsif  (BYPASS(TOKEN_BRACKETS))  then         ~  check  for  <>  when  parsing 
return  (TRUE))  —   an  unconstrained  array 

else 

SYNTAX_ERROR( "Constraint" ) ) 
end  if)  —  if  ranges  statement 

elsif  (BYPASS(TOKEN_DIGITS))  or  else  ( BYPASS( TOKEN_DELTA ) )  then 
if  (FLOATING_OR_FIXED_POINT_CONSTRAINT)  then 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Constraint")) 
end  i  f ) 
elsif  (BYPASS(TOKEN_LEFT_PAREN))  then 
if  ( INDEX_CONSTRAINT )  then 

return  ( TRUE  ) ) 
else 

SYNTAX_ERROR( "Constraint" ) ) 
end  if) 
else 

return  ( FALSE  ) ) 
end  i  f ) 
end  CONSTRAINT) 
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—  FLOATING_OR_FIXED_POINT_CONSTRAINT  — >   SIMPLE_EXPRESSION  I  range  RANGES  ?] 
function  FLOATING_OR_FIXED_POINT_CONSTRAINT  return  boolean  is 
begin 

if  (SIMPLE.EXPRESSION)  then 

if  ( BYPASS! TOKEN.RANGE))  then 
if  (RANGES)  then 

null( 
else 

SYNTAX_ERROR( "Floating  or  fixed  point  constraint"  )  v 
end  if)  —  if  ranges  statement 

end  iii  —  if  bypass 1 token_range ) 

return  (TRUE  )i 
else 

return  ( FALSE  )i 
end  if)  —  if  simple_expression  statement 

end  FLOATING_OR_FIXED_PGINT_CONSTRAINT  > 


--  INDEX.CONSTRAINT  — >   DISCRETE_RANGE  [ ,  DISCRETE_RANGE  1*  ) 
function  INDEX_CONSTRAINT  return  boolean  is 
begin 

if  ( DISCRETE_RANGE )  then 

while  (BYPASS(TOKEN_COMMA) )  loop 
if  not  (DISCRETE_RANGE)  then 

SYNTAX_ERROR( "Index  constraint"  )  > 
end  if>  —  if  not  discrete_range 

end  loop  i 
if  (BYPASS(TOKEN_RIGHT_PAREN))  then 

return  (TRUE  )) 
else 

SYNTAX_ERROR( "Index  constraint" ) j 
end  if)  —  if  bypass ( token_right_paren  ) 

else 

return  (FALSE)) 
end  if)  —  if  disorete_range  statement 

end  INDEX_CONSTRAINT ) 


—  RANGES  ~>   SIMPLE.EXPRESSION  [ . .SIMPLE_EXPRESSION  ?] 
function  RANGES  return  boolean  is 
begin 

if  (SIMPLE_EXPRESSION)  then 

if  (BYPASS(TOKEN_RANGE_DOTS))  then 
if  (SIMPLE_EXPRESSION)  then 

null) 
else 

SYNTAX_ERROR( "Ranges" ) ) 
end  if)  —  if  simple_expression  statement 

end  if)  —  if  bypass ( token_range_dots ) 

return  (TRUE)) 
else 

return  ( FALSE  ) ) 
end  if)  —  if  simple_expression  statement 

end  RANGES) 


~  AGGREGATE  ~>   ( COMPONENT_ASSOCIATION  I,  CGMPONENT_ASSOCIATION ]*  ) 
function  AGGREGATE  return  boolean  is 
begin 

if  (BYPASS(TOKEN_LEFT_PAREN))  then 
if  ( COMPONENT_ASSOCIATION )  then 

while  (BYPASS(TOKEN_COMMA))  loop 

if  not  (COMPONENT  ASSOCIATION)  then 
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SYhfTAX_ERROR(  "Aggregate" )  i 
end  if  J  —  if  not  component  association 

end  loop ( 
if  (BYPASS(TOKEN_RIGHT_PAREN))  then 

return  (TRUE)j 
else 

SYNTAX_ERROR( "Aggregate" ) } 
end  if)  —  if  bypass ( token_right_paren) 

else 

SYNTAX_ERROR( "Aggregate" ) > 
end  if}  —  if  component_association  statement 

else 

return  ( FALSE  1 1 
end  ifv  —  if  bypassC token_lef t_paren  ) 

end  AGGREGATE} 


—  COMPONENT_ASSOCIATION  ~>   [CHOICE  C   CHOICE]*  =>  ?1  EXPRESSION 
function  CONPONENT_ASSOCIATION  return  boolean  is 
begin 

if  (CHOICE)  then 

while  (BYPASS(TOKEN_BAR))  loop 
if  not  (CHOICE)  then 

SYNTAX_ERROR( "Component  asociation" ) v 
end  i  f } 
end  loop } 

if  ( BYPASS (TOKEN.ARROW))  then 
if  (EXPRESSION)  then 

nullv 
else 

SYNTAX_ERROR( "Component  asociation"  )j 
end  if}  —  if  expression  statement 

end  if}  —  if  bypass ( token_arrow) 

return  (TRUE)} 
else 

return  ( FALSE  ) } 
end  if}  —  if  choice  statement 

end  COMPONENT_ASSOCIATION} 


—  ALLOCATOR  ~>   SUBTYPE_INDICATION  I 'AGGREGATE  ?] 
function  ALLOCATOR  return  boolean  is 
begin 

if  (SUBTYPE_INDICATION)  then 

if  ( BYPASS( TOKEN_APOSTROPHE ) )  then 
if  (AGGREGATE)  then 

null} 
else 

SYNTAX_ERROR( "Allocator" ) } 
end  if} 
end  if} 

return  (TRUE)} 
else 

return  ( FALSE  )v 
end  i  f } 
end  ALLOCATOR} 


-  if  aggregate  statement 
if  bypass( token_apostrophe ) 


if  subtype_indication  statement 


—  NAME  ~>   identifier  [NAME_TAIL  ?] 

__>  character_literal  [NAME.TAIL  ?1 
__>   string_literal  [NAME_TAIL  ?] 
function  NAME  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IDENTIFIER))  then 
if  (NAME_TAIL)  then 
null} 
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end  i  f \ 

return  (TRUE)» 
elsif  (BYPASSlTOKEN_CHARACTER_LITERALn  then 

i-f  (NAME_TAIL)  then 
null  J 

end  i  f \ 

return  ( TRUE  )  i 
elsi-f  (  BYPASS!  TOKEN_STRING_LITERAL))  then 

if  (NAME_TAIL)  then 
null  J 

end  i  f  > 

return  (TRUE)i 
else 

return  ( FALSE  )\ 
end  1 f  > 
and  NAME> 


~  NAME_TAIL  ~>   <  LEFT_PAREN_NAME_TAIL 
— >   .SELECTOR  [NAME_TAIL]* 
-->   'AGGREGATE  [NAME_TAIL]* 
-->   'ATTRIBUTE_DESIGNATOR  [NAME.TAILl* 
■function  NAME_TAIL  return  boolean  is 
begin 

if  ( BYPASS! T0KEN_LEFT_3AREN)1  then 
if  (LEFT_PAREN_NAME_TAIL)  then 

return  ( TRUE  )  v 
else 

return  I  FALSE  ]  \ 
end  ifv  —  if  lef t_paren_riame_tail 

sisif  (BYPASSlTOKEN_PERIODn  then 
if  (SELECTOR)  then 

while  (NAME_TAIL)  loop 

null  > 
end  loop  t 
return  ITRUE)> 
else 

SYNTAX_ERROR( "Name  tail")) 
end  if)  —  if  selector  statement 

elsif  ( BYPASS! TOKEN.APOSTROPHE))  then 
if  (AGGREGATE)  then 

while  !NAME_TAIL)  loop 

null) 
end  loop) 
return  !TRUE)) 
elsif  !ATTRIBUTE_DESIGNATOR)  then 
while  !NAME_TAIL)  loop 

null) 
end  loop ) 
return  (TRUE)) 
else 

SYNTAX_ERROR! "Name  tail")) 
end  if)  —  if  aggregate  statement 

else 

return  ( FALSE  ) ) 
end  if)  —  if  bypass! token_left_paren) 

end  NAME_TAIL) 


~  LEFT_PAREN_NAME_TAIL  — >  [ FORMAL.PARAMETER  ?]  EXPRESSION  [..EXPRESSION  ?] 

[,  lFORMAL_PARAMETER  ?]  EXPRESSION  [..EXPRESSION  ? ] ]* 

)  [NAME_TAIL]* 
function  LEFT_PAREN_NAME_TAIL  return  boolean  is 
begin 

if  ( FORMAL_PARAMETER)  then  —  check  for  optional  formal  parameter 

null)  —   before  the  actual  parameter 

end  if)  —  if  formal_parameter  statement 
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if  (EXPRESSION)  then 

if  ( BYPASS! TOKEN_RANGE_DOTS))  then 
if  not  (EXPRESSION)  then 

SYNTAX_ERROR("Left  paren  name  tail")> 
end  if>  —  if  not  expression  statement 

end  ifv  —  if  bypass ( token_range_dots  ) 

while  (BYPASS(TOKEN_COMMA))  loop 
if  (FORMAL_PARAMETER)  then 

null> 
end  if>  —  if  formal_parameter  statement 

if  not  (EXPRESSION)  then 

SYNTAX_ERROR("Left  paren  name  tail")> 
end  ifi  —  if  not  expression  statement 

if  ( BYPASS! TOKEN_RANGE_0OTS ) )  then 
if  not  ( EXPRESSION )  then 

3YNTAX_ERR0R(  "uef t  paren  name  tail")*, 
end  ifi  —  if  not  expression  statement 

and  if}  —  if  bypass i toKen_range_docs i 

and  loop  i 

if  .BYPASSITOKEN_RIGHT_PAREN))  then 
while  (NAME_TAIL)  loop 

nulli 
end  loop ( 
return  ( TRUE  )  i 
else 

r-eturn  i  FALSE  )  { 
end  ii;  —  if  bypass( token_right_paren ) 

alsif  ( OISCRETE.RANGE )  then 

if  ( BYPASS! TOKEN_RIGHT_PAREN ) )  then 
while  iNAME_TAIL)  loop 

null  I 
and  loop » 
return  ( TRUE  ) » 
else 

SYNTAX_ERROR("Left  paren  name  tail"n 
end  if;  —  if  bypass! tokan_right_paren ) 

else 

return  ( FALSE  )i 
end  if  I  —  if  expression  statement 

end  LEFT_PAREN_NAME_TAILj 


--  ATTRIBUTE_DESIGNATOR  ~>   identifier  [(EXPRESSION)  ?] 

— >   range  [(EXPRESSION)  ?] 
— >   digits  [(EXPRESSION)  ?] 
~>  delta  [(EXPRESSION)  ?] 
function  ATTRIBUTE_DESIGNATOR  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IDENTIFIER))  or  else  ( BYPASS! TOKEN_RANGE ) )  then 
if  ( BYPASS! TOKEN_LEFT_PAREN))  then 
if  (EXPRESSION)  then 

if  (BYPASS(TOKEN_RIGHT_PAREN))  then 

null) 
else 

SYNTAX_ERROR( "Attribute  designator" )j 
end  ifv  —  if  bypass( token_right_paren)  statement 

else 

SYNTAX_ERROR( "Attribute  designator"  )  \ 
end  if>  —  if  expression  statement 

end  if)  —  if  bypass( token_lef t_paren  )  statement 

return  (TRUE)) 
elsif  ( BYPASS! TOKEN_DIGITS))  or  else  ( BYPASS! TOKEN_DELTA ) )  then 
if  ! BYPASS! TOKEN_LEFT_PAREN))  then 
if  (EXPRESSION)  then 

if  ( BYPASS! TOKEN_RIGHT_PAREN))  then 

null) 
else 

SYNTAX_ERROR( "Attribute  designator" )) 
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end  if  J  —  if  bypasst token_right_paren)  statement 

else 

SYNTAX_ERROR( "Attribute  designator"  )  \ 
end  if  J  —  if  expression  statement 

end  ifv  —  if  bypass( token_lef t_paren)  statement 

return  (TRUE)> 
else 

return  ( FALSE  )  > 
end  if  5  —  if  bypass( token_identif ier  )  statement 

end  ATTRIBUTE_DESIGNATORv 


~  INTEGER_TYPE_0EFINITION  ~>   range  RANGES 
function  INTEGER_TYPE_DEFINITION  return  boolean  is 
begin 

if  ( BYPASS! TOKEN_RANGE ) )  then 
if  (RANGES)  then 

return  ( TRUE n 
else 

SYNTAX_ERROR( "Integer  type  definition" )> 
end  i  f  v 
else 

return  (FALSER 
end  i  f \ 
end  INTEGER  TYPE_0EFINITION> 


—  DISCRETE_RANGE  — >   RANGES  [CONSTRAINT  ?] 
function  OISCRETc_RANGE  return  boolean  is 
begin 

if  (RANGES)  then 

if  (CONSTRAINT)  then 

null^ 
end  if>  —  if  constraint  statement 

return  (TRUE)) 
else 

return  (FALSE)) 
end  if)  —  if  ranges  statement 

end  DISCRETE_RANGE ) 


~  EXIT_STATEMENT  ~>   [NAME  ?1  [when  EXPRESSION  ?]  ) 
function  EXIT_STATEMENT  return  boolean  is 
begin 

if  (NAME)  then 

null  I 
end  if)  —  if  name  statement 

if  (BYPASS(TOKEN_WHEN))  then 
if  (EXPRESSION)  then 

null) 
else 

SYNTAX_ERROR( "Exit  statement" )) 
end  if)  —  if  expression  statement 

end  if)  —  if  bypass ( token_when) 

if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE)) 
else 

return  (FALSE)) 
end  if)  —  if  bypassC token_semicolon) 

end  EXIT_STATEMENT) 


—  RETURN_STATEMENT  ~>   [EXPRESSION  ?]  ) 
function  RETURN_STATEMENT  return  boolean  is 
begin 
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if  (EXPRESSION)  then 

null) 
end  i  f ( 
if  (BYPASS(TOKEN_SEMICOLON))  then 

return  ( TRUE  )  v 
else 

return  (FALSE)) 
end  i  f  > 
end  RETURN_STATEMENT) 


~  GOTO.STATEMENT  — >   NAME  > 
function  GOTO_STATEMENT  return  boolean  is 
begin 

if  (NAME)  then 

if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE  )i 
else 

SYNTAX_ERROR( "Goto  statement" ) \ 
end  Hi 
else 

return  ( FALSE  )  i 
end  i  f  i 
end  GOTO_STATEMENT> 


if  bypass! token_sefflicolon) 


--  if  name  statement 


--  DELAY_STATEMENT  — >   SIMPLE_EXPRESSION  i 
function  DELAY_STATEMENT  return  boolean  is 
begin 

if  (SIMPLE_EXPRESSION)  then 

if  (BYPASSITOKEN.SEMICOLON) )  then 

return  I  TRUE  )> 
else 

SYNTAX_ERROR( "Delay  statement"  )j 
end  if( 
else 

return  ( FALSE  )> 
end  i  f  > 
end  DELAY_STATEMENTj 


—  if  bypass( token_semicolon) 
—  if  simple_expression  statement 


--  ABORT_STATEMENT  — >   NAME  [,  NAME]*  l 
function  ABORT_STATEMENT  return  boolean  is 
begin 

if  (NAME)  then 

while  (BYPASS(TOKEN_COMMA))  loop 
if  not  (NAME)  then 

SYNTAX_ERROR( "Abort  statement"  )  \ 
end  if) 
end  loop  i 
if  (BYPASS(TOKEN_SEMICOLON))  then 

return  (TRUE)) 
else 

SYNTAX_ERROR( "Abort  statement" ) ) 
end   i  f ) 
else 

return  (FALSE)} 
end  i  f  j 
end  ABORT_STATEMENT ) 


—  if  not  name  statement 


—  if  bypass ( token_semicolon) 


—  if  name  statement 


--  RAISE_STATEMENT  — >   [NAME  ?]  ) 
function  RAISE_STATEMENT  return  boolean  is 
begin 

if  (NAME)  then 
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null  I 
end  i  i i 
if  (BYPASS(TOKEN_SEMICOLONn  then 

re-turn  (TRUEU 
else 

return  ( FALSE ) I 
end  i  i i 
end  RAISE_STATEMEh4T  > 

end  PARSER_3> 
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--  TITLE: 


AN  ADA  SOFTWARE  METRIC 


MODULE  NAME: 
DATE  CREATED: 
LAST  MODIFIED: 


PACKAGE  PARSER.'* 
23  JUL  86 
04  DEC  86 


—   AUTHORS: 


LCDR  JEFFREY  L.  NIEDER 
LT  KARL  S.  FAIRBANKS,  JR. 


DESCRIPTION:   This  package  contains  seven  functions  that 

—  are  the  lowest  level  productions  for  our  top-down, 

—  recursive  descent  parser.   Each  function  is  preceded 
by  the  grammar  proauct ions  they  are  implementing. 

with  3YPASS_FUNCTIQN,  3YPASS_SUPP0RT_FUNCTI0NS,  QLOBAL.PARSER ,  3L0BALJ 
use  3YPASS_FUNCTI0N,  3YPASS_SUPP0RT_FUNCTI0NS,  GLOBAL,? ARSES ,  GLOBAL > 

package  PARSER_'+  is 

function  MULTIPLYING.OPERATOR  return  boolean v 

function  8INARY_AD0ING_0PERAT0R  return  boolean} 

function  ;RELATI0NAL_0PERAT0R  return  boolean v 

function  ENUMERATION_TYPE_0EFINITION  return  boolean i 

function  ENUMERATION_LITERAL  return  boolean i 

function  FORMAL_PARAMETER  return  boolean v 

function  SELECTOR  return  booieanv 
end  PARSER  tv 


package  body  PARSER,"*  is 


MULTIPLYING  OPERATOR 


—  > 

—  > 
— > 

—  > 


* 
/ 

mod 
rem 


function  MULTIPLYING_OPERATOR  return  boolean  is 
begin 

if  (BYPASS(TOKEN_ASTERISK))  then 

return  (TRUE  )> 
elsif  (BYPASS(TOKEN_SLASH))  then 

return  (TRUE  M 
elsif  (BYPASS(TOKEN_MOD))  then 

return  ( TRUE  )  j 
elsif  ( BYPASS! TOKEN_REM))  then 

return  (TRUEH 
else 

return  ( FALSE )( 
end  i  f ( 
end  MULTIPLYING_OPERATORj 


~  BINARY_ADDING_OPERATOR  ~>   ♦ 

—  >  i 

function  BINARY_ADDING_OPERATOR  return  boolean  is 
begin 

if  ( BYPASS (TOKEN_PLUS))  then 

return  (TRUE)> 
elsif  (BYPASS(TOKEN_MINUS))  then 

return  ( TRUE )> 
elsif  (BYPASS(TOKEN_ AMPERSAND))  then 

return  (TRUE)> 
else 
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return  ( FALSE  )j 
end  i  f  i 
end  BINARY_AD0ING_OPERATOR> 


~   RELATIONAL_OPERATOR  -->   = 

-->   /= 

—  >   < 

—  >   <= 
— >   > 

—  >   >= 

function  RELATIONAL_OPERATOR  return  boolean  is 
begin 

i-f  (BYPASS(TOKEN_EQUALS))  then 

return  (TRUE)-, 
els  if  I  BYPASS! TOKEN_NOT_EQUALS))  then 

return  (TRUE  )> 
elsif  ( BYPASS (TOKEN_LESS_THAN))  then 

return  (TRUE)j 
elsif  (BYPASS(TOKEN_LESS_THAN_EQUALS))  then 

return  (TRUE)> 
elsif  (BYPASS(TOKEN_GREATER_THAN))  then 

return  (TRUE )j 
elsif  (BYPASS(TOKEN_GREATER_THAN_EQUALS))  then 

return  ( TRUE ) > 
else 

return  ( FALSE  )  v 
end  i  f \ 
end  RELATIONAL.OPERATOR; 


—  ENUMERATION_TYPE_DEFINITION  ~>   ( ENUMERATION_LITERAL 

[,  ENUMERATION_LITERAL]») 
function  ENUMERATION_TYPE_DEFINITION  return  boolean  is 
begin 

if  (BYPASS(TOKEN_LEFT_PAREN))  then 
if  (ENUMERATION_LITERAL)  then 

while  (BYPASSCTOKEN.COMMA))  loop 

if  not  (ENUMERATION_LITERAL)  then 

SYNTAX_ERROR( "Enumeration  type  definition"  )  v 
end  if  J  —  if  not  enumeration_literal 

end  loop  J 
if  (BYPASS(TOKEN_RIGHT_PAREN))  then 

return  (TRUE)j 
else 

SYNTAX_ERROR( "Enumeration  type  definition" )j 
end  if  J  —  if  bypassC token_right_paren) 

else 

SYNTAX_ERROR( "Enumeration  type  definition" ) > 
end  if>  —  if  enumeration_literal  statement 

else 

return  ( FALSE  ll 
end  Hi  —  if  bypass ( token_left_paren) 

end  ENUMERATION_TYPE_DEFINITIONj 


—  ENUMERATION_LITERAL  — >   identifier 

— >   character_literal 
function  ENUMERATION_LITERAL  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IDENTIFIER))  then 

return  (TRUE)i 
elsif  (BYPASS(TOKEN_CHARACTER_LITERAL))  then 

return  (TRUE)> 
else 

return  ( FALSE ) i 
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end  i  f  i 
end  ENUMERATION_LITERALv 


~  FORMAL_PARAMETER  -->   identifier  => 
function  FORMAL_PARAMETER  return  boolean  is 
begin 

LOOK_AHEAD_TOKEN  :=  TOKEN_RECORD_BUFFER( TOKEN_ARRAY_INDEX  +  l)j 
i  f  ( ADJUST_LEXEME ( LOOK_AHE AD_TOKEN . LEXEME , 

LOOK_AHEAD_TOKEN,LEXEME_SIZE  -  1)  =  "=>")  then 
if  (BYPASS(TOKEN_IDENTIFIERn  then 
if  (BYPASS(TOKEN_ARROW) )  then 

return  ( TRUE  )  i 
else 

SYNTAX_ERROR( "Formal  parameter" )v 
end  if>  —  if  bypass ( token_arrow1 

else 

SYNTAX_ERROR( "Formal  parameter"  )  i 
end  Hi  —  if  bypass ( token_ identifier ) 

else 

return  ( FALSE  )i 
end  i  f  j 
end  FORMAL_PARAMETER) 


~  SELECTOR  — >   identifier 
--  — >   character_literal 

—  — >   string_literal 

—  >   all 
function  SELECTOR  return  boolean  is 
begin 

if  (BYPASS(TOKEN_IDENTIFIER))  then 

return  (TRUE  )\ 
elsif  IBYPASS1TGKEN_CHARACTER_LITERAL))  then 

return  ( TRUE  )  \ 
elsif  (BYPASS(TOKEN_STRING_LITERAL))  then 

return  (TRUE)> 
elsif  ( BYPASS! TOKEN_ALL))  then 

return  (TRUE)i 
else 

return  ( FALSE  )> 
end  i  f ( 
end  SELECTOR  J 


end  PARSER_<+j 
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—  TITLE:  AN  ADA  SOFTWARE  METRIC 

—  MODULE  NAME:     PACKAGE  SCANNER 

—  DATE  CREATED:    06  JUN  86 

—  LAST  MODIFIED:   0^  NOV  86 

~  AUTHORS:        LCDR  JEFFREY  L.  NIEDER 

LT  KARL  S.  FAIRBANKS,  JR. 

DESCRIPTION:   This  package  reads  each  character  from  the 

—  input  buffer,  determines  its  token  class  and  calls 
— •       the  approDriate  procedure. 

with  LOW_LEVEL_SCANNER,  NUMERIC,  GET_NEXT_CHARACTER,  '3L08AL} 
use  LOW_LEVEL_SCANNER,  NUMERIC,  GET_NEXT_CHARACTER,  GLOBAL) 

package  SCANNER  is 

procedure  GET_NEXT_TOKEN( TOKEN_RECORD  :  in  out  TOKEN_RECORD_TYPE  )  j 
end  SCANNER  I 


package  body  SCANNER  is 

procedure  GET.NEXT^tqkENI TOKEN_RECORD  :  in  out  TOKEN_RECORD_TYPE  )  is 
begin 

LEXEME ^LENGTH  :=  li 

for  I  in  1..LINESIZE  loop 

TOKEN.RECORD. LEXEME  (I )  :=  '  'j 

end  loop i 

GETNEXTCHARACTERt  NEXT_CHARACTER ,  LOOKAHEAD_ONE_CHARACTER  )  i 

if  ((NEXT_CHARACTER  in  UPPER_CASE_LETTER )  or 
(NEXT.CHARACTER  in  LOWER_CASE_LETTER ) )  then 
TOKEN_RECORD.TOKEN_TYPE  :=  IDENTIFIER) 
GET_IDENTIFIER( TOKEN_RECORD ) > 

elsif  ( (NEXT_CHARACTER  =  '  '  )  or 

( character ■pos(NEXT_CHARACTER)  in  FORMATORS ) )  then 
TOKEN_RECORD.TOKEN_TYPE  :=  SEPARATOR i 
FLUSH_SEPARATORS( TOKEN_RECORD ) i 

elsif  (NEXT.CHARACTER  in  DIGITS_TYPE )  then 
TOKEN_RECORD.TOKEN_TYPE  :=  NUMERIC_LIT> 
GET_NUMERIC_LIT( TOKEN_RECORD ) i 

elsif  ((NEXT_CHARACTER  =  '-')  and  ( LOOKAHEAD_ONE_CHARACTER  =  '-'))  then 
TOKEN_RECORD.TOKEN_TYPE  :=  COMMENT j 
FLUSH_COMMENT( TOKEN_RECORD ) v 

elsif  (NEXT.CHARACTER  =  "•)  then 

TOKEN_RECORD.TOKEN_TYPE  :=  CHARACTER_LITj 
GET_CHARACTER_LIT( TOKEN_RECORD ) i 

elsif  ((NEXT_CHARACTER  =  ' I ' )  or  ( NEXT.CHARACTER  =  '  ' )  or 
(character 'post NEXT.CHARACTER)  in  DELIMITERl)  or 
( character 'pos(NEXT_CHARACTER)  in  DELIMITER2))  then 
TOKEN_RECORD.TOKEN_TYPE  :=  DELIMITER) 
GET_DELIMITER( TOKEN_RECORD )  i 

elsif  ( NEXT_CHARACTER  =  ""  )  then 

TOKEN_RECORD.TOKEN_TYPE  :=  STRING_LIT) 
GET_STRING_LIT( TOKEN_RECORD ) i 
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elsif  (NEXT_CHARACTER  =  '$')  then 

TOKEN_RECORD.TOKEN_TYPE  :=  SEPARATOR)    —input  was  a  blank  line 
TOKEN.RECORD. LEXEME (CURRENT_BUFFER_INDEX)  :=  '$'> 
NEXT_BUFFER_INDEX  :=  REFILL_BUFFER_INDEX j 

elsif  (character 'pos(NE"XT_CHARACTER  )  =  0)  then    — first  character  is  null 

TOKEN_RECORD.TOKEN_TYPE  :=  SEPARATOR j 

NEXT_BUFFER_INDEX  :=  REFILL_BUFFER_INDEX>       —force  buffer  to  refill 
else 

—  first  character  read  is  not  one  of  the  legal  characters 

TOKEN_RECORD.TOKEN_TYPE  :=  ILLEGAL) 

ERROR_MESSAGE 1 TOKEN_RECORD . TOKEN_TYPE ) \ 
end  i  f  V 

token  value  is  an  integer  which  corresponds  to  ^he  token  type's 
position  in  the  toKen  list 

TOKEN ' oo5( TOKEN_RECORD . TOKEN_TYPE ) ^ 
L£XEME_LENGTHi 


TOKEN_SECORD . TOKEN_VALUE 
TOKEN_RECORD. LEXEME_SIZE 
end  GET_NEXT_TOKENi 


end  SCANNER) 
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